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Störst på VIC program! 


Vi har Skandinaviens största sortiment av program till VIC 
hemdatorer. Spel- och nyttoprogram på diskett och kassett för 
VIC och Spectrum, hemdatorer med tillbehör alltid till bästa 
dagspris; allt är samlat i den första fullständiga postorder¬ 
katalogen. 

Beställ den 90-sidiga katalogen, posta kupongen redan idag! 
Pris 15:— Inbetalningskort bifogas. 


Återförsäljare sökes till vårt oslagbara programsortiment 
Kontakta oss! 



DATAMAKLAREN 

Vasavägen 61 C, Linköping Tel 013-103174 
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Ledaren 

Gott Nytt År! Nu står vi inför ett myc¬ 
ket intressant år — inte bara för Geor¬ 
ge Orwells förutsägelser utan överhu¬ 
vudtaget. Det rör sig mycket kraftigt 
på marknaden och trycket från hemda¬ 
tortillverkarna ökar. Här i Sverige bör¬ 
jar vi få in datorerna i skolorna i allt¬ 
mer ökad omfattning. Man har be¬ 
stämt sig för ett nytt skolspråk, CO- 
MAL, som till glädje för alla V1C-64- 
ägare (och PET-ägare) finns i en versi¬ 
on speciellt för Commodore-datorer. 
Till 64:an finns den nu i februari för 
diskladdning och något längre fram på 
våren kommer en mest effektiva av al¬ 
la COMAL-versioner, 2.0, i form av 
en plug-in till 64:an! (Till PET- 
datorerna har den funnits som hårdva- 
rukort ett par år i version 1.02, men nu 
kom i år även 2.O-versionen på PET- 
kort). Vi har en sådan variant på re¬ 
daktionen, och ni skall tro att den är 
kraftfull! 

På VIC-sidan har leveranserna kom¬ 
mit igång igen av både 20 och 64. Där 
vill vi alldeles meddetsamma döda alla 
rykten om 20:ans snara bortgång. De 
nya datorer som man hör rykten om 
skall komma från Commodore kom¬ 
mer alla att vara möjliga att köra gam¬ 
la VIC-program på. Man talar om 
”uppåt-kompatibilitet”, dvs pro¬ 
gram för en ”lägre” dator skall gå att 
köra på en ”högre, mer avancerad”. 
Rykten talar om att Commodore ge¬ 
nom uppköp av producenter skall ta 
sig in på 16-bitarsmarknadcn, men än¬ 
nu är det bara rykten . . . 

Något som är sant är däremot att 
VIC-rapport fått ny ansvarig utgivare. 
Han ersätter Peter Elmlund, som låg 
bakom tidningens nya stil och inrikt¬ 
ning. Hans namn är som framgår av 
”faktarutan” Tomas Wredler och han 
är redan i full gång med allt, som det 
nya företaget handic PRESS ab skall 
syssla med. ”Varje veckodag är en ar¬ 
betsdag”, sade Tomas när vi talades 
vid på söndagskvällen! 

Själva spar vi ingen möda här på re¬ 
daktionen i våra ansträngningar att gö¬ 
ra en bra och läsvärd tidning. Det är 
roligt att kunna hälsa fler nya skriben¬ 
ter välkomna i detta nummer liksom 
att några av ”de gamle” återkommer 
med mer material. 
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NybörjaiiiJ! 

Del 3 ^Skojan 

VIC-20 ' * 

FÖRST — EN KORRIGERING! 

Genom ett typografiskt misstag i nr 4, Nybörjarskolan del 1, blev 
det avslutande experimentet något underligt för de flesta. Det blev 
inte alls det avsedda, då de inknappade bokstäverna J, Q och K 
skulle varit skiftade, dvs visa grafiska tecken i stället för 
bokstäver. Vi upprepar därför den korrigerade programbiten: 



Shift 

„ ,_ * i! v 

Du skriver in: 

fn fel |»| (mellahslag) [j] [q] jTj Q [FJ \petupnI 

VIC visar: 

1 0 ? " < me 11 enr um > ( J | \ Qj \ k| " ; 

Du skriver in: 

mie] r röirniöi m m i return i 

VIC visar: 

20 GOTO 1 0 ^ 

Du skriver in: 

0 fy) (Hl ]PE T UPNj 

VIC visar: 

De+As sr den »ys+iska delen 1 


Och så är det dags att dyka in i tredje 
avsnittet av vår nybörjarkurs. Vi har i 
båda föregående avsnitten varnat alla 
som inte är nybörjare, att läsning av 
denna nybörjarskola får ske helt på de¬ 
ras egen risk. Vi ansvarar inte för följ¬ 
derna som kanske upplevs av dem, 
som kan lite programmering — kursen 
är till för absoluta nybörjare! 

Du som har kommit fram till att det 
är dags att skriva några enkla program 
nu. Kanske minns du de trevliga trix 
som försäljaren visade i butiken? Men 
det är inte så helt enkelt att få fram 
samma effekter hemma, eller hur? Var 
lugn, vi skall ge dig många fina tips här 
så att du kan överraska vänner och be¬ 
kanta med en hel del roligheter — och 
nyttigheter. 

Innan vi börjar skall vi friska upp 
minnet hur vi slår in ett program i 

VIC: 

1 Knappa in programmet rad för rad 
som det visas, glöm inte radnumret. 

2 Tryck på (RETURN)-tangenten vid 
slutet av varje rad. 


3 Knappa in ordet RUN och tryck på 
(RETURN) för att starta programmet. 

4 För att stoppa ett program som är 
igång, tryck på RUN/STOP- 
tangenten. 

5 Du kan RUNa ett program om och 
om igen genom att STOPpa det och 
återigen slå RUN (programmet stannar 
i VICs minne när du knappar in det). 

6 Innan du knappar in ett nytt pro¬ 
gram, glöm inte att rensa minnet med 
NEW och (RETURN). 

7 Om ett program ”fastnar”, håll ner 
RUN/STOP-tangenten och tryck på 
RESTORE-tangenten. Detta sätter 
igång VIC igen utan att du tappar 
programmet ur minnet. 

Låt oss börja enkelt: 

NAMN. NAMN. NAMN 
Knappa in följande program: (glöm 
inte RETURN efter varje rad!) 

10 PRINT ”DIN VÄNS NAMN 
• • • » 

20 GOTO 10 


Detta är ett roligt program som de 
flesta av oss använt någon gång för att 
imponera på vänner som aldrig sett en 
dator förut. Du kan knappa in namnet 
med lite punkter eller andra tecken för 
att göra det mer läsbart på skärmen. 
PRINT-kommandot visar namnet, el¬ 
ler vilket budskap du vill som står mel¬ 
lan citationstecknen (”) uppe på skär¬ 
men. GOTO-kommandot säger till 
VIC att gå tillbaka till rad 10 och göra 
om alltihop. Semikolonet (;) vid slutet 
av rad 10 gör, att texterna placeras di¬ 
rekt efter varandra. Pröva att ändra 
semikolon till ett kommatecken (,) el¬ 
ler helt utelämna det och se vad som 
händer. 

255 FÄRGER 

Skriv NEW, tryck på (RETURN). 
Knappa sen in följande program: 

10 FOR X = 1 T0 255STEP1 
20 POKE 36879,X 
30 PRINT CHRS(147) 

35 PRINT ”POKE 36879,”;X 
40 FOR T = I TO 700 :NEXT T: 
NEXTX 

Detta lilla program visar VIC-20s 
255 skärm- och ramfärgkombinatio¬ 
ner. Det är till god hjälp då du kan 
vandra igenom alla 255 färgkombina¬ 
tionerna stegvis och finna den färg¬ 
kombination du vill ha för ett speciellt 
program. POKE-kommandot på rad 
20 är nyckeln. Kör programmet med 
RUN till dess du ser en kombination 
du gillar. Tryck på RUN/STOP- 
tangenten för att ”frysa” färgerna. 
Skriv ner POKE-kommandot som vi¬ 
sas på skärmen för senare bruk. Därpå 
kan du skriva in CONT och trycka på 
(RETURN) för att fortsätta från stop¬ 
pet. Detta är den ”lata” metoden för 
att välja färger. Bästa sättet är kanske 
att titta efter i VIC programmerings¬ 
handbok. 

RULLANDE SKÄRM FÖNSTER 

Skriv NEW tryck (RETURN). Pröva 
sen att knappa in nedanstående: 

10 POKE 36867,4:PRINTCHRS(147) 
20 PRINT ”DITT MEDDELANDE 

HÄR . . .” 

30 FOR X = 0 TO 120:POKE 36865,X 

:NEXT 
40 GOTO 20 

Du kan ändra storlek och läge på 
skärmfönstret genom att använda någ¬ 
ra av de speciella POKE-kommando- 
na. Detta lilla program använder dessa 
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kommandon för att få ditt meddelande 
att rulla neråt skärmen. Meddelandet 
på rad 20 bör bara exakt 22 tecken 
långt. Pröva med att slå t cx 22 hjärtan 
(det gör du genom att hålla SH1FT- 
tangenten nere och trycka på S, som 
visar ett hjärta på framsidan av tan¬ 
genten) i stället för ett meddelande. 

SJÖSJUKEPROGRAMMKT 

Skriv NEW, tryck (RETURN). Knap¬ 
pa in programmet nedan: 

10 PRINT CHR$(147) ”SJÖSJUK” 
20 FOR L = 0 TO 6.28 STEP . 1 
30 POKE 36864,5+ 4*S1N(L) 

40 POKE 36865,27 + 4*COS(L) 

50 NEXTrGOTO 20 
Detta program får skärmen att snur¬ 
ra runt, runt, runt. Vi kallar det för 
Sjösjukeprogrammet därför att det är 
hur du känner dig om du tittar på det 
för länge. Programhemligheten ligger i 
att V1C-20 kan flytta skärmen med 
hjälp av POKE-satser. 

CIRKEL 1 HÖGUPPLÖSN1NGS- 
GRAFIK 

Gör som förut, skriv NEW, tryck (RE¬ 
TURN). Detta blir sista påminnelsen, 


sen gör du väl det automatiskt före 
varje nytt program? Skriv sen in ne¬ 
danstående program och var noga med 
varje tecken: 

10 FOR S = 7168 TO 7679:POKE 
S,0:NEXT 

20 POKE 36879,8:PRINTCHRS(147); 

30 FOR S = 7680 TO 8185:POKE 

S, I60:NEXT 

40 POKE 36869,255 

50 FOR L = 0 TO 7:FOR M = 0 TO 7 

60 POKE 7680 +M*22 + L,L*8 + M 

70 NEXT M,L 

80 FOR X = 0TO63 

90 Yl = 32 + SQR(64*X-X*X) 

100 Y2 = 32-SQR(64*X-X*X) 

110 FOR Y = Y1 TOY2STEP Y2-Y1 
120 CH = lNT(X/8)*8 + INT(Y/8) 

130 RO = (Y/8-INT(Y/8))*8 
140 BY = 7168 + 8*CH + RO 
150 BS = 7-(X-INT(X/8)*8) 

160 POKE BY, PEEK(BY) OR 
(2 | BS) 

170 NEXTY.X 
180 GOTO 180 

Detta 18-radersprogram ser ut som 
en hel del, eller hur? Men det gör en 


hel del också! Detta är det första pro¬ 
gram där vi ritar på skärmen i högupp- 
lösningsgrafik. Denna grafikform skil¬ 
jer sig från den vanliga genom att den 
normala består av 8x8 punkter i block 
(alltså 64 punkter/block) och att du i 
högupplösningsgrafik kan adressera 
varje individuell punkt. Om du tänker 
fortsätta att programmera med hög¬ 
upplösningsgrafik rekommenderar vi 
att du skaffar dig V1C SUPER EX- 
PANDER. Denna speciella plug-in ger 
dig utom 3K extra RAM-minne även 
flera nya kommandon som gör att du i 
BASIC kan plotta (rita) punkter, 
streck, bågar och cirklar ... ja, du 
kan även ”måla i” slutna figurer på 
skärmen med färger! SUPER EX- 
PANDER har också inbyggda musik¬ 
kommandon. 

Vi hoppas att denna kortfattade in¬ 
troduktion till programmering har ska¬ 
pat aptit på nästa avsnitt av Nybörjar- 
skolan — då skall vi tala litet om hur 
man programmerar markörflyttningar 
och om tidfördröjningsslingor, som 
kan bli bra att ha när man programme¬ 
rar spel. 

Å Fredriksson 



3 


















Tjejer 

— ta chansen! 


En tjej, som börjat intressera sig för det här med datorer, sände oss 
den här artikeln. Den får oss att öppna ett spaltutrymme speciellt 
för alla kvinnliga dator-amatörer, hackees, eller vad man nu skall 
benämna den feminina varianten av hacker. 

Välkommen alltså med Dina synpunkter. Du som är tjej och intres¬ 
serad av datorer! 


Datorna utveckling har gått med raket¬ 
fart på sista tiden och vad som är mest 
på tapeten för tillfället är väl kanske 
debatten om Hemdatorer. 

Tittar man på fördelningen mellan 
könen så är det övervägande delen kil¬ 
lar som kastar sig över tangentbordet 
eller sliter i joysticken i ett sprakande 
arkadspel. Vad är det som säger att vi 
tjejer inte intresserar oss för den nya 
tekniken och tycker att det är roligt att 
spela spel? Rädsla för att göra bort sig 
kanske? Är det inte ”kvinnligt” mån¬ 
tro eller är det helt enkelt så, att kvin¬ 
nor inte är intresserade av teknikens 
utveckling över huvud taget? Ja, frå¬ 
gorna är många och jag ska inte försö¬ 
ka ge mig på att besvara dem. Men jag 
vill försöka ge en bild av vad det här 
med data kan innebära för oss tjejer i 
framtiden. 

Datoriseringen kan komma att inne¬ 
bära både hot och chanser. På vilken 
sida vill Du stå? Nu har vi ju verkligen 
chansen att hänga med från början. 
Datoriseringen betyder att män kom¬ 
mer att gå in på kvinnors område och 
många jobb kommer att vara hotade. 
Ändå tror jag att den nya tekniken är 
världens chans för oss tjejer. Det gäller 
bara för oss att ta den! 

Kvinnors underläge på arbetsmark¬ 
naden kan komma att förstärkas om vi 
inte behärskar den nya datatekniken. 
Det är inte meningen att vi ska bli da¬ 
taexperter allihop men vi bör i alla fall 
intressera oss för och försöka påverka 
utvecklingen. 

Egentligen är det ju ganska konstigt 
att vi kvinnor inte intresserar oss för 
det här med datorer mer än vi gör. 
Även om vi inte kommer att jobba som 
programmerare så kommer vi förmod¬ 
ligen att komma i kontakt med en da¬ 
tor förr eller senare. Varför då inte gö¬ 
ra jobbet roligare genom att försöka 
lära sig lite så man förstår vad det är 
man sysslar med. Förmåga att förstå 
hur ett program fungerar gör jobbet 
både roligare och lättare. För är det in¬ 
te så i alla fall att det är vi kvinnor som 
i slutänden kommer att sitta vid termi¬ 
nalerna och mata in information i da¬ 
torerna. Varför reagerar vi inte då? 

Det handlar bara om intresse, lite lo¬ 
giskt tänkande samt massor av vilja 
och ambition. Ju mer man lär sig desto 
mer intresserad blir man. OBS detta 
gäller även tjejer! 
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Den grupp av kvinnor som mest 
kommer i kläm i denna utveckling, 
tror jag, är ungdomar som inom den 
närmaste tiden ska in på arbetsmark¬ 
naden. Nu för tiden ordnas det kurser i 
ordbehandling, bokföring etc. inom de 
flesta företag. Detta kommer att inne¬ 
bära att de som redan har ett fast jobb 
får denna utbildning gratis. Vi som än¬ 
nu inte har lyckats med att få in en fot i 
ett företag hamnar lite utanför. Hur 
ska vi bekanta oss med datorn innan vi 
ger oss ut i yrkeslivet? 

1 detta skede, menar jag, kommer de 
olika datakurserna in som en mycket 
viktig del i utvecklingen. Även Hemda¬ 
torerna kan vara en bra start. Hemda¬ 
torerna går faktiskt att använda till 
mer än att spela spel på, även om det 
inte låter så i debatten i dag. Men jag 
kan förstå att folk börjar reagera, när 
man pratar om hur ”nyttiga” Hemda¬ 
torerna är, när man främst talar om 
vilken oerhörd nytta och fördel man 
har av att kunna lägga upp pappas 
skivsamling och mammas recept på da¬ 
ta! 1 genomsnittsfamiljen räcker en 
pärm eller ett kortsystem alldeles för¬ 
träffligt bra för att klara av den skiv- 
eller receptsamling som föräldrarna 
har. Det bör röra sig om hundratals 
skivor för att det ska löna sig med en 
uppläggning på data! Ibland känns det 
nästan som om den sociala fantasin in¬ 
te hållit jämna steg med den tekniska. 
Nu kommer så många nya fiffiga tek¬ 
niska apparater så man inte riktigt hin¬ 
ner med att komma på vad man kan 
använda dem till. Många gånger ses 
kanske den nya tekniken som något 


lyxigt och överflödigt och inte som ett 
efterlängtat och underlättande hjälp¬ 
medel. Men när tvättmaskinen och 
diskmaskinen kom till våra hem så an¬ 
sågs de väl också vara väldigt lyxiga 
och ”onödiga”. Nu ses de som en 
självklarhet. Så vem vet, snart finns 
väl säkert en hemdator i varje hem. 
Däremot har jag väldigt svårt att tänka 
mig att vi ska bli datoriserade och så 
isolerade som många pessimister vill 
påvisa. De menar att vi kommer att bli 
mer och mer isolerade. På vår dator i 
hemmet kommer vi att sköta allt; job¬ 
bet, alla inköp, matplanering etc. Det 
mesta går att sköta hemifrån och de 
naturliga kontaktpunkterna — livsme¬ 
delsbutiken, arbetskamrater etc. — 
försvinner. I USA lär det visst pågå ett 


projekt där man sitter hemma och skö¬ 
ter sitt jobb från skärmen i hemmet. 
Man behöver alltså aldrig gå till job¬ 
bet. Frågan är om vi svenskar är så pä 
alerten och insatta i utvecklingen att vi 
hinner stoppa den i tid! Vill vi att det 
ska gå så här långt? Det är därför som 
jag tycker att vi ska försöka intressera 
oss för utvecklingen lite grand, så vi 
kan hänga med i debatten och inte ba¬ 
ra stå vid sidan om och titta på. För vi 
kommer aldrig att kunna komma med 
någon väsentlig kritik om vi inte först 
har kunskapen . . . 

Nu för tiden finns det så många da¬ 
takurser och speciellt för tjejer. Spe¬ 
cialerbjudande och tjejrabatter lite 
överallt. Varför inte utnyttja dessa? 

Tyvärr så har inte skolan vaknat rik¬ 
tigt ännu. Inom den närmaste framti¬ 
den så måste nog schemat omarbetas 
och några timmar data per vecka läg¬ 
gas in. Det är en nödvändig följd av ut¬ 
vecklingen. Datorerna slipper vi inte 
ifrån. Här ser jag en chans för oss tje¬ 
jer att komma in på ett nytt område. 
Det satsas verkligen på oss nu och jag 
tror att företag kommer att vara posi¬ 
tiv till lite kvinnlig arbetskraft, för att 
tillfredsställa JämO (jämställdhetsom- 
budsmannen) om inte annat! 

Det här är en viktig utveckling för 
oss, för alla. Tänker Ni ta chansen? 
Jag gör det i alla fall! 

Är det något ni skulle vilja ta upp 
om det här med tjejer och data, så hör 
gärna av er! 
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V arning 


för 

pirat¬ 


kopiering 

av Alf Olsson, Skäftingebackens datorörnar 

”Som kronoassistent vid kronofogdemyndigheten i Sollentuna 
distrikt (det är vi som använder video, och vill använda satellit vid 
spaningen), så har jag fått i uppdrag att avmagnetisera ca 50 video- 
gramkopior. Vidare så skall jag driva in pengarna som piraterna är 
skyldiga filmbolagen. Piratkopiering kommer mer och mer. Därför 
vill jag stämma i bäcken i stället för i ån. Hoppas att min artikel du¬ 
ger.” 


För att förhindra piratkopiering av 
kassetter så förser fabrikanterna spe¬ 
len med olika kopieringsskydd, till ing¬ 
en som helst nytta. Är man det minsta 
klurig så knäcker man snart skydden. 
Det enda skydden gör är att det försvå¬ 
rar egna förändringar av spelen. 

Vad fabrikanterna borde göra är att 
upplysa om vad brott mot upphovs¬ 
rättslagen innebär. 

De flesta spel är märkta 1 Copyright. 
Även om detta inte finns på spelet så 
gäller lagen. I korthet innebär lagen 
följande; 

Du får kopiera över spelet på dis¬ 
kett, eller på ett arbetsband. Bara du 
använder det själv. 

Kopierar du banden och säljer dem, 
så är det ett brott. Du får inte heller 
spara en egen kopia och sälja orgina- 
let. När du köper bandet så får du bara 
använda det för privat bruk. Det inne¬ 
bär att du inte får öppna en egen spel¬ 
håla och ta betalt. Du får inte heller 
köpa ett exemplar av FRÅN SPEL 
TILL BASIC och kopiera så det räcker 
till klassen. 


Plankar du ett spel, förändrar det li¬ 
te, och säljer det vidare så är även det 
ett brott mot upphovsrättslagen. 
Grundidén var inte din. 

Vad händer 

om du säljer piratkopior? 

Även fabrikanterna läser radannon¬ 
ser. De låter privatpersoner köpa band 
för att se om det är piratkopior. Är det 
en pirat så blir du omedelbart polisan¬ 
mäld. Jag har läst några färska domar 
som gällde kopior av videoband. I ett 
fall fick den skyldige två månaders 
fängelse. I de två andra fallen blev det 
100 dagsböter. Hur stor varje dagsbot 
blir beror på inkomsten. De skall även 
betala ersättning till de bolag som äger 
copyrighten på kassetterna. Den vinst 
som de beräknades ha gjort på kopie¬ 
ringen skall de betala till staten. I run¬ 
da tal så skall var och en betala 
50 000:— var. För att få in allt detta så 
gör Kronofogdemyndigheten utmät¬ 
ning. Finns det inte prylar att utmäta, 
så blir det utmätning i lön. Har du ing¬ 


et att utmäta i dag, så kanske du har 
om 7 år. Bolagen kommer inte att 
glömma bort skulden. 

Vad göra om du äger en pirat. Ta 
det lugnt. Det är inget brott att köpa 
pirater. Däremot att sälja, eller lämna 
dem vidare. 

Kontakta den leverantör som du tror 
äger kopieringsrätten. Hjälp leveran¬ 
tören att spåra upp den som kopierar 
eller säljer kopiorna. Jag förutsätter 
att du får ersättning för din hjälp. 

Om vi inte alla hjälps åt att stoppa 
piraterna, så kommer snart alla spel att 
ligga på cartridges. Nackdelen med 
detta är att de är tre gånger så dyra 
som ett band. 

Snälla fabrikanter. Upplys om vad 
brottet innebär i stället för alla list¬ 
skydd. Jag vill kunna ändra i program¬ 
met så att det duger för en 5-åring, lika 
väl som för en avancerad gambler. 


Alf Olsson 

Skärftingebackcns 

datorörnar 
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Hj ärtpanik 

av Gunnar Berglund 


Förbered dig på en svettig omgång med hjärtat i halsgropen och 
joystick mellan fingrarna! Spelidén är enkel. Du styr din ”Anti- 
Heart-Device” (ett reverserat hjärta” med joystick. Din sysselsätt¬ 
ning består i att sudda ut de hjärtan som dyker upp på skärmen. 
Men du kan inte ta de hjärtan som har annan färg än din AHD. 

Du vinner när skärmen är helt rensad och förlorar när skärmen innehåller 15 vi¬ 
ta + 10 röda -t- 5 svarta hjärtan. 

Spelet innehåller flera effektljud, som får ditt eget hjärta att bulta lite fortare 
då du närmar dig ett avgörande. Det finns 10 spelnivåer. Själv brukar jag kunna 
ta hem spelet på nivå 6. På högre nivåer brukar spaken hinna bli rätt hal innan 
jag får ge upp . . . 

Det här är stressigt värre, så se upp för hjärtinfarkten! 

Om du vill slippa besväret med att själv knappa in programmet, så kan du få 
en kassett-kopia genom att sätta in 35 kr på pg 476 96 08-3, Gunnar Berglund. 
Märk inbetalningskortet med ”HJÄRTPAN1K”. 



Programförklaring 

10 Rensar skärmen: Sätter svårighets¬ 
nivån till lägsta (1). 

15 CS = Start på ljudchip & skillnad 
mellan skärm- och färgadress: Sätter 
ljudnivån till högsta (15): I subrutin 
530 finns instruktionstext. 

18 Sätter x-och y-koordinater för 
spelpjäsens startplats: Initierar IN- 
variabeln som används för att räkna 
varv i huvudloopen. 

19 Stänger av allt ljud. 

20 SC = start på skärmminnet: J =joy- 
stickadress: CU = initialvärde på spel¬ 
pjäsens färg (ljusgrå): PI = ljudvaria¬ 
bel. 

22 Subrutin 580 innehåller val av spel¬ 
nivå. 


25 Subrutin 600 ritar upp spelfältet. 
100—190 Huvudloop 
100 Läser joystick 

105 Genererar 'stegljud’ för spelpjä¬ 
sen. 

110 Subrutiner för flyttning av spel¬ 
pjäs. 

115 Släcker position P om den inne¬ 
håller spelpjäsen. 

120 Beräknar skärmposition för 
spelpjäsen: Stänger av 'stegljudet’ för 
spelpjäsen i subrutin 1010. 

130 Testar om spelpjäsen kolliderar 
med ett hjärta av samma färg som den 
själv. 

140 Tänder spelpjäsen om positionen 
P är tom. 

175 Räknar antal varv i huvudlopp: 


Testar om det är dags att lägga ut ett 
nytt hjärta på skärmen. 

180 Testar om spelet är slut. 

190 Slut på huvudloop. 

200 Förlust. Börja ett nytt spel. 

202 Fanfar i subrutin 300. 

205—314 Fanfar. 

500—520 Bestämmer hur snabbt nya 
hjärtan ska dyka upp på skärmen. 

530 Rensar skärmen: Sätter ramfärg 
till brunt: Sätter spelplanens färg till 
grå. 

532—548 Instruktionstext. 

549 Fanfar i subrutin 300. 

580—595 Frågar efter svårighetsnivå 
på spelet. 

600 Ljud vid utplacering av hjärtan. 
610 Placerar ut ljusgrå hjärtan. 

650 RN = slumpmässig skärmadress. 
700 Sätter loopräknaren i utgångsläge 
(-1): Räknar upp antal hjärtan: Testar 
om deras antal är mindre än 16 och 
sätter i så fall spelpjäsens färg till 
ljusgrå: Ljud för utplacering av ljus- 
grått hjärta i subrutin 815. 

705 Testar om antalet hjärtan är fler 
än 25 och sätter i så fall färgen på 
spelpjäsen till mörkbrunt. Subrutin 
830 ger ljud för utplacering av mörk¬ 
bruna hjärtan. 

707 Sätter färg på spelpjäs till röd: 
Subrutin 825 ger ljud för utplacering 
av röda hjärtan. 

708 Slumpmässig skärmadress i sub¬ 
rutin 650: Testar om adressen är upp¬ 
tagen. 

710 Tänder ett hjärta av spelpjäsens 
färg: Stänger av ljud i subrutin 1000. 
715 Q = variabel som bestämmer hur 
snabbt nya hjärtan ska dyka upp på 
skärmen. 

720 Pl = variabel som bestämmer 
frekvensen på spelpjäsens 'stegljud’. 
750 Räknar med antalet hjärtan och 
sätter färg på spelpjäsen därefter. 

760 Sätter färg på spelpjäs till röd. 

765 Tänder spelpjäs: Subrutin 800 
genererar ljud vid taget hjärta. 

775 Jfr 715 
780 Jfr 720 
800—832 Ljudrutiner 
979—999 Subrutiner för uppräkning 
av skärmposition för spelpjäs samt tes¬ 
tar om spelpjäsen nått spelfältets ram. 
1000 Stänger av ljudet för alla 3 stäm¬ 
morna. 

1010 Stänger av ljudet för stämma 1. 
1300— Flyttar tecken från ROM till 
RAM och definierar nya tecken (Å, Ä, 

Ö). 
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rapP° rt 


pS "-liru?************* 

**"» HERRT PPM T. 

4 PPM ,"*** COPVRIGHT " *«* 

4 KEM >#* iqot. * 

5 REM 05WRR 

S *£” EERGLMNt *” 

i^iÄrsr^r 

II 

ISTÄ«:« 


(CLERR;- " 


PI =28 


■ + 4,33 •’ PriRE 
S+S-H2 PQKÉCS 


ii OOSUB580:PPINT 
25 GOSUB600 

1 00 ,T'./= 1 er •■• ccrtri/ , 

JS Äi^ii|- P 0KEC^,33 

}s ^^^Äs^^^ScrJä 992 ' 994,997 

& öifiiSÄs,™ 

12® ^ HN= 30THEH1R 
20i GOSUB300 

PRINT"<10 DOWN>» 

I« SWr^Ä^yflffiK'?iffi VBNN ! 

225 G0T0215 THENPRINT " <CLEHR> ■■ :G0T018 

i SS 

30S DRTfl23,3if?«^g 10 

*09 DRTR37, 162.42 Ä'lf'115-^-^'42,.62,3! . 16-; 

110 Rekt i ; FORL.r=rp.fnr^i i' •- b r ’ 50 •’ 60 •■ 37 ■• 1R2 

312 RESTORE ' ~ 0Co+ 1 : p OKEL J, 0: NE ■'T 

314 RETMRN 

500 NH=2*I NT<RNI»< 2 )*,, , , . 

510 NH=2*iN T (RNp ( ;J, ;4 ( -^SN<3)* 8 ) :re T( pn 
,. iti NH=2*i nt(RNP c J ^ SN<3>*8> : RETUR 

5*0 PRINT» (CLERR} " : EETMRN 

•-'Oi PRINTTRPi— -, " - PtD,.2o0., 9 . PQKE53RP1 i -. 

» ^S?;>:«3äs^”|~ I oher,— 

538 PRinttrp,' ^ » ,^f LflRE MED jnvRTinc EN 

i:s i"??. ws> * 

il . 

548 PRlNTTRBf7v ^'nnuJwI >DU V ™NER VID 0 # 

SI .. <RED> <RV8> ST « p TR SPELET MED 'S*' - 

*g PRINT” .(CLERR}'•fpETNRN 50 

im&&**** — 

*00 F0RHN=0TDi 4 : nngl |Rier R . , _ 


•L1 : PQKEC 
50.. 60 
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HN=HN-l NEXT 

c. -.0 RM= i ht < < 202 -:-i r,-•=, tD1 lr 

700 IN =-1 : HN=HN +1 1 > + 1025: RETIJRN 

707 CU=2^G0SMBS2^ =11 ' 00 ^" 0 ^®8 

708 OOSUB650 " I FFFFFson- -- -. 

nl SÄ e »'Ä 

"II K0 ' 500 ' 510 ' 500 

775 SÉ (HN 5s wJ' E r m CS ' CU : S0SUB800 

780 IH=-1 . pi =20+,'RBSas-HN 5 *?- ? 10 ' 520 •■ 500, *10, sno 
000 P0KECS+5,20: Pn^rt: HN ^ 12 > : RETIJRN ' 00 

815 P0KECs3I U ^tpnKEr^-/-' ^E^RETURN* F ° RIal 1010: P °»<ECS + 1, RNB< 1 >* 2 0 : NEX 
817 P^ECS+5,8:roSr-SS 1 ^ :pOKEC S+8,90:pnK'Ere +1 - Qn 

820 FORT= 1T 025 ^NEXT° +1 ^' ® P0 ^ 0S+ 19., g: P0KEC8+4 ^33 ■ pokfpq , 

822 RETIJRN ' 4,33•PQKECS+ 11 , 33 :pDKErs+lfi 

825 P0KECS + 5.15: P n„Frw I8 "' 

326 PQKECS+8.40 P0KECS+4 '33:PQKECS+1,40:POKEPS+IP ,-. Dr 
827 RETIJRN ^-^CS+12, 1 5 • P0KECS +11 , 33 

330 PDkPrcxc *-« • r-— 

^^ Ifv ^ t ^v= 24 

?sj RE?l™ IFX<0THEN><=0 

985 X = X~ 1 . Vsv -1 jr> • 

885 IFV<0THENV=0 JTHENX=0 

887 RETIJRN 

f 1 ' 7 "-' : V=V +1 : IFV-^CiTLicrn-• - 

988 IFV>24THENV=^ 0THENA=0 

990 RETIJRN " ' 

991 RETIJRN 

II! RETURN IFX>39THEHX=39 

995 1FvUtheNV=^ >3?THENX=39 
■998 RETIJRN 

Qgr, rr-t'|- ~ T ““ T "I" 1 ■ IF^039THENV— pQ 

lfe^ t 1 THENV ^ 4 

«E SSfÄ'; 0! NEXT! RETURN 

1300 FORL^lf/ci : S& 0 J CT : RETURN 

Ji?I : P0KEL, fi :NEXT 

i» EKIS jÖ^; f £^™ ; 

.-EXT,,C„ 

1360 RESTHRr ■" ‘ 1 - ^' 1 26.. 102.. 1 02 . o 

1370 P ' I ^E52j 56 • P0KE56,56: PETURN 
RElTDV. 












Justerad sorteringsrutin 
ny tabellplaceringsrutin 


Sven Sjöberg i Åmål, som hade ganska 
många saneringsprogram i julnumret 
(5/6-83) av VIC-rapport, har sänt oss 
en rättad rutin, som kom in för sent 
för att hinna justera programmet i jul¬ 
numret. Dessutom sände han också en 
en-rads tabellplaceringsrutin: "Den 
kanske är användbar för flera än mig 
själv. ” 

5 REM TERMOMETERMETOD 
VID SLASKSORTERING 
10 PRINT CHR$(147) 

20 INPUT”ANTAL”;N 
30 DIM A(N),B(N) 

40 FOR I = 1TO N 
50 INPUT” A(l) = ”;A(I) 

70 NEXT 1 
75 TI = TI 

80 FOR J = 1 to N/2 + 0.5 
85 B(J)= 10000 

90 FOR I = 1 TO N 
95 IF A(I) = 0THEN 120 
100 IF A(1)<B(J) 

THEN B(J) = A(I):C = I 
110 IF A(I)>B(N + 1-J) 

THEN B(N + I-J) = A(I):D = I 

120 NEXT I 

125 A(C) = 0:A(D) = 0 

130 NEXT J 

140 FOR J = 1 TON 

150 PRINT B(J) 

160 NEXT J 

165 PRINT(TI-T1)/60;”SEK” 

170 END 

Denna ändring kom tyvärr inte med 
i decembernumret av VIC-RAPPORT. 


DECIMALTALENS OCH ÄVEN 
HELTALENS UTSKRIFT I 
TABELL. 

När datorn skriver ut talen i kolum¬ 
ner kommer inte ental under ental, tio¬ 
tal under tiotal, osv eller decimal¬ 
punkt under decimalpunkt. Man kan 
med stränghantering ordna så att upp¬ 


ställningen blir den önskade. Denna 
metod är i allmänhet onödigt krånglig. 

Här följer en metod som bygger på 
10-logaritmerna för talen. Det betyder 
att vi nu bara behöver använda en en¬ 
da rad för denna sortering: 

40 L= INT(LOG(ABS(A(J)))/LOG 
10)):IF L < -1 THEN L = L+ 1 

Denna rad tillåter även behandling 
av negativa tal samt decimaltal, om 
dessa inte av datorn utskrives med E — 
(ex. 6.4E-03). (Denna utskrift synes 
drabba tal av storleksordning tusende¬ 
lar och mindre.) 

Du kan pröva med exempelvis föl¬ 
jande uppställning 

10 PRINT CHR$(147) 

12 DIM A(20) 

15 1 = 1 + 1 
20 PRINT”A”;I; 

22 INPUT A(I) 

24 IF A(I) = THEN 30 

26 GOTO 15 

30 FOR J = I TO 1-1 

40 L = INT(LOG(ABS(A(J)))/LOG 

(10)):IF L < 1 THEN L = L+ 1 

50 PRINT TAB(5-L)A(J) 

52 NEXT J 

Denna uppställning skriver upp tal 
till det antal man själv bestämmer (här 
godtyckligt dimensionerat till högst 
20). Inskrivningen avbryts då talet 0 
slås in, sedan sker utskriften i den ko¬ 
lumn man valt i rad 50. (ANM. Ut¬ 
skriften blir snyggare om du skriver 30 
PRINT CHR$( 147) och 35 FOR J = 1 
TO 1-1 ). 

* 


DATAKASSETTER 
HÖGSTA KVALITÉ 
TILL FABRIKSPRISER ! ! 


SUPER FERRO 

C 5 2 x 214 
C 10 2x5 
C 15 2 x 7 Vi 
C 20 2x 10 
C 25 2 x 1214 
C 30 2x 15 


(TYPI) 

Min. 7.30/st 
Min. 7.45/st 
Min. 7.70/st 
Min. 8.15/st 
Min. 8.50/st 
Min. 8.85/st 


Priserna gäller vid köp av 20 st av en 
längd. Mindre än 20 st tillägg 1: —/st. 
Moms ingår. 


DISKETTER TILL LÅGPRIS ! ! 

BASF FLEXY DISK 5,25 
48TPI (40 Spår) 

IX SS/SD 25: —/st 

ID SS/DD 31: — /st 

2D DS/DD 35: —/st 

96TPI (77/89 Spår) 

1/96 SS/DD 34:-/st 

2/96 DS/DD 43:-/st 

Priserna gäller vid köp av 5 st/ Beteck¬ 
ning. Moms ingår. 


Porto 16:— tillkommer/leverans. Be¬ 
tala till postgiro 17 63 25-9 eller sänd 
check. Full garanti på fabrikations- 
och materialfel. 


KLM TRADING • 430 31 ÅSA 

Tel. 0340-561 90 även kvällar o. helger 



Böcker till VIC-20/64 

_ ... ...... (pr'5»r e.kl 

Getting acquamted with ponoi 


yourVIC20 116:— 

VIC Innovative Computing 125:— 
ZAP! POW! BOOM! Games 
for VIC 20 145:— 

Symphony for VIC 20 116: — 

VIC 20 Exposed 135: — 

The Working Commodore 64 115 — 
Commodore 64 Games Book 115:— 
Commodore 64 Exposed 135:— 
Commodore Machine 
Code Master 135: — 

Commodore 64 Adventures 135:— 


Beställ katalog! 


Studieförlaget 

Bo. 386. 731 06 Uppsala I. telefon 018.13 3390 


10 
























Kontakt med 
läsekretsen 


Vi börjar ju få en ganska riklig korrespondens till redaktionen. De 
tre frågor vi hade i julnumret, om VIC-rapport var dålig, om namn 
på felrättningsspalten, om namn på cartridge, har fått en del svar, 
flest har svarat på frågorna om VIC-rapport var bra eller dålig och 
det redogörs i nästa nummer av tidningen. 


Felrättnings- 

spalt 

I VIC-rapport nr 5/6-83 bad vi 
läsarna sända in namnförslag 
på den spalt där vi försöker 
rätta alla fel allteftersom vi 
upptäcker dem — eller som 
oftast, får dem påpekade för 
oss. Vi har hittills fått in ett 
fåtal svar. Hur är det? Gillar 
inte våra läsare att skriva? För 
ringa till redaktionen är ju ett 
populärt göra, av alla samtal 
på sena kvällar och nätter att 
döma . . .! 

Bland inkomna svar märks flera ”Syn¬ 
tax Error”, ”VICTITT-spalten”, 


”Plumpoteket”, ”FEL-rapport”, 
”V1C-V1RR”, ” VIC-VURPOR”, 

”EDIT.”, ”VrICat”, ”Garbage Cor- 
rection”, ”Syntax Terror!”, ”VlC:en 
TABBE”, m fl. 

Tycker du inte att vi borde få in än¬ 
nu fler förslag? Sänd in DITT förslag 
— ett vanligt vykort räcker, eller tag 
ett överblivet julkort. 

Namnförslag 
på Cartridge 

Där har vi bara fått in två förslag och 
måste låta den rulla vidare: En för¬ 
slagsställare säger ”program-plugg”, 
den andre ”cart” eller ”kort”. Det 
ena är kanske för långt och det andra 
säger för litet — vad tycker du som lä¬ 
ser detta? Ta ett vykort och skriv DINA 
synpunkter! 


”Påhittiga 

VICKE” 

Här är en rubrik där läsarna 
verkligen är välkomna att sända 
in tips! Vi har just nu bara ett 
enda i manuskriptlagret: 

Benno Andersson i Malmö har haft 
svårigheter att läsa av räkneverket på 
kassettbandspelaren C2N. Han kom 
på ett bra knep: En liten plexiglasbit, 
som passar att ställa precis över siffer- 
fönstret och som dels vinklar upp siff¬ 
rorna och dels gör dem litet större. Ge¬ 
nom att ändra avfasningen av plexigla- 


Öga 



sets överkant kan man ändra läsvin- 
keln, skriver Benno. Vi tackar för tip¬ 
set och ger här Bennos adress för er, 
som vill skriva direkt till honom om ni 
inte har lust att snickra i plexiglas eller 
kan få tag i plexiglas. Benno Anders¬ 
son, Kronetorpsgatan 100A, n b, 
212 27 MALMÖ. 


BOKFÖRINGS- 
PROGRAM TILL 



Ett program så genomarbetat 
och enkelt att det faktiskt gör 
rutinarbetet trevligt. 

Dessutom är det säkert! 

Varje inmatad uppgift kontrol¬ 
leras av programmet och vid 
felaktig form spärras inmat¬ 
ningen. 

Efter en registrering av trans¬ 
aktionerna erhålles . . 



DAGBOK 


HUVUDBOK 


SALDOBALANS 


RESULTATRAPPORT 


I PROGRAMMET FINNS 
ÄVEN BOKSLUTSRUTINER 

Tillfället även 
för återförsäljare 
- tag snabbt kontakt med . . 



3 LITIKEN 


Tel. 060/11 08 00 
SJÖGATAN 7, 
852 33 SUNDSVALL 
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Labyrint 


av Lars Karlsson 

% 


Här kommer en tillämpning av det trevliga labyrintprogrammet, 
som publicerades i VIC-rapport nr 3-83. Det är ett spel med kula 
som äter hjärtan och man spelar mot klockan. 


Hur är spelet utformat? Jo, du går 
runt i labyrinten med din kula, som 
styrs med tryckningar på tangenterna 
5, 6, 7 och 8 enligt bilden. Du skall 
”äta upp” de små rosafärgade hjär¬ 
tan, som finns här och där i labyrin¬ 
tens gångar. För varje uppätet hjärta 
får du en poäng. 

Hela tiden räknas sekunderna ner 
mot noll och när tiden är slut kan du 
inte spela längre — det gäller alltså att 
skynda på med ”hjärt-slukeriet”. 

För att flytta din kula använder du 
tangenterna så som bilden visar: 


t 



I 


5 = uppåt 

6 = neråt 

7 = åt vänster 

8 = åt höger 

Anledningen att jag valt just dessa 
tangenter är den lösning jag valt i 
programmet för att tjäna plats och 
tid(??) 


Följande VARIABLER används i 
programmet: 

TD = Tidsvariabel, startvärde = 
2000 för varje ny karta 
P = Hur många hjärtan du tagit 
på nuvarande karta 

R = Hur många hjärtan som 
finns på kartan 

X = Poäng du tagit på föregåen¬ 
de kartan 

B = Värde på nedtryckt tangent 

C = Beräkningsvariabel för plats 

i bildminne, kan anta fallan¬ 
de värden: —40, 40, —1, 1 
A = Plats i bildminne 
K = Kontroll av nästa steg i laby¬ 
rinten 

T = Loopvariabel 

1 = Loopvariabel 

R1 = Loopvariabel för antal hjär¬ 
tan beroende av Z 
PL = Plats i bildminne 
KOL = Kolumner i bildminne 
RAD = Radnr i bildminne 
Används vid beräkning av plats. 

KONSTANTER: 

D = 1 E = 83 F = 81 G = 5 
H = 7 1 = 6 J = 8 L = 32 

W = 160 

Konstanterna används för att beräk¬ 
ningarna skall utföras snabbare. Da¬ 
torn arbetar nämligen fortare med va¬ 
riabler än med siffror. 



PROGRAMKOMMENTARER: 
(Siffrorna hänvisar till radnummer i 
BASIC-programmet) 

1040—1080 Spelslinga 
1050 Jämförelser (villkor) av en typ, 
som närmare behandlas i artikeln 
”Jämförelser och logiska operatorer” 
i VIC-rapport nr 3 sid 15. För att det 
skall gå tillräckligt snabbt väljer jag att 
använda siffertangenter — då slipper 
vi nämligen ASCIl-omvandlingen! 

1055 Du ”släcker” kulan på skärmen 
1060 ”Kollar” om det finns en vägg i 
din väg i labyrinten 

1070 ”Känner av” om det fanns ett 
hjärta 

1080 Tänder kula igen 
2000—3060 Utskrifter 
10000—10250 Uppritning av labyrint. 
För närmare detaljer se VIC-rapport 
nr 3-84, sid 30. 

10318—10381 Utritning av hjärtan 
10340 Undersöker om hjärtat ligger 
på olämplig plats 

10350 Undersöker om hjärtat redan 
finns på platsen 
10360 Ritar hjärtat 
10380—10381 Korrigering av R 
10382 Värde på varibler 
10390—10392 Surbrutin för beräk¬ 
ning av PLATS 

FÖRSLAG TILL ÄNDRINGAR: 

Du, som vill fortsätta att bygga vidare 
på labyrintspelet kan t ex ändra spelti¬ 
den, byta till andra tangenter, göra om 
programmet från tangent- till joy- 
stick-styrning, du kan byta färger och 
göra andra utskrifter. Här är variabel¬ 
listan och programkommentarerna 
kanske till god hjälp. 

Observera att jag har inriktat mig på 
att göra programmet snabbgående — 
därför har vissa programmeringsprin- 
ciper åsidosatts! Spela nu inte bara 
dygnet runt! (man måste ju program¬ 
mera litet också . . .) 

Lars Karlsson 
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993 GOSUB10000 
1000 REM . 

1010 REM GA GENOM LABVRINTEN 
1040 IFTB=0THEN3000 

1045 PRIHT"T="TD" (LEFT) ","P="P+Z" (UP>" 

1047 GETBf:IFB$=""THENTD=TD-*D : GOTO1040 

1048 B=VRL(B*>=IFB=0THEN1047 

1050 0=40»(B=G)-40* < B=I) + < B=H)-(B=J) 

1055 POKER.L 

1060 A=fl+C : K=PEEK.(R):fl=R+C*(K=W> 

1070 P=P-(K=E):IFP=RTHEN2000 
1080 POKER .■ F : TD=TE-D : GOTO 1040 
2000 Z=Z+P 

2005 PRI NT" ICLERR) '3 RIGHT > BU KLRRRBE DET! (DOWN> <4 LEFTX2 DOWN>TOT : "Z"PORNG" : P= 
0 

2010 FORT=1TO1000 ; NEXT 

2020 IFZ>1000THENPRINT"<5 DOWN><14 RIGHT>DU RR BRST!!" 

2030 IFZ>1000THENPRINT" <2 D0WNX3 RIGHTHDRGS RTT BORJfl MED ETT RNNRT SPEL)" : END 
2040 GOTO10032 

3000 Z=Z+P : PRINT" (CLERR)<8 RIGHT)." 

3001 PRINT"<6 RIGHT>TRRKIGT VRD TIDEN SPRINGER" 

3002 PRI NT" <2 D0WNX11 RIGHT) DIN TID RR IJTE!!!!" 

3005 IFZ=>10THEN3020 

3003 PRINT"<2 DOWN) 

3010 PRINT"<2 RIGHT>DU RR TVDLIGEN INTE SR BRR PR DET HRR SPELET 

! " 

3012 PRINT" <9 DOWNX13 RIGHT)BRRfl"Z"PORNG" 

3020 IFZ=>10RNDZ<50THENPRINT"DU BEHOVER TRRNfl MVCKET."Z;"DRLIGR PORNG" 

3030 IFZ=>50THENPRINT "<2 DOWN) {4 RIGHT)DET RRTRR SIG"Z)"PORNG" 

3050 PRINT" {3 DOWN)<3 RIGHT)VILL DU FORSOKR IGEN (V/N )"i 
3055 INPUTRJ:IFR$="N"THENEND 
3060 GOTO10032 

10000 POKE53280 , 0: P0KE53231,0:P0KE646,5 

10001 POKE650.. 128 

10002 DIMA(3> 

10032 R(0)=2 : R(1)=-80 : R(2)=-2 : fl(3)=80 
10120 W=160 : L=32 SC=1024:fl=SC+81 
10130 PRINTCHRf(147) : REM RENSREILD 
10140 F0RI=1T023 
10150 PRINT"<RVS> 

10160 NEXT 
10130 REM 

10200 REMSKRPRLRBVRINTEN 
10205 REM 
10210 POKER,4 

10220 J=INT (RND<1)*4)=X=J 

10230 B*R+fi(J) : IFPEEK(B)=WTHENPOKEB,J : POKER+fl<J)/2,L : R=B : GOTO10220 

10240 J=(J+1)#(-(J<3)) : IFJOXTHEN10230 

10250 J=PEEK(R) : POKER,L : IFJ<4THENA=fl-fl(J) : GOTO10220 

10260 REM 

10270 REM FLER HRL 
10280 REM 

10235 IFZ>50THEN10301 

1«230 FORI=lTO10 : GOSUB10330 : POKEPLRTS,32 : NEXT 

10300 REM 

10301 REM UTPLRCERING RV HJRRTRN 

10302 REM 

10318 R1=INT(5+Z*0.3-RND(1)*4) 

10313 IF R1>700THENR1=700 
10320 F0RR=1T0R1 
10330 GOSUB10390 

10340 IFPEEK<PL-40)+PEEK<PL+40)+PEEK(PLRTS-1)+PEEK <PLRTS+1)=640THENGOTO10330 
10350 IFPEEK(PLRTS)=83THENG0T0 10330 
10360 POKEPLRTS,83 : P0KE54272+PLRTS,10 
10370 NEXTR 

10330 IFPEEK<1105)=83THENR=R~1 
10381 R=R-1 

10332 R=1105 : D=1 : E=33 : F=31:G=5 : H=7:I=6 = J=8:TD=2000 
10383 GOTO1000 

10330 KOL=INT(1+RND<1)#37) 

10331 RRB=INT<2+RNB<1>#21> 

10332 FLRTS=1024+KOL+40*RRD : RETURN 

RERDV. 
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Läs filbilioteket på en skiva 


På demonstrations-skivan som följer 
med då man köper skivminnet finns ett 
program som heter ”DIR”. Bland an¬ 
nat, läser det filbiblioteket (DlRecto- 
ry) på en skiva och skriver ut det på 
skärmen. Programmet är ganska ”rö¬ 
rigt” skrivet, och det kan vara svårt att 
förstå vad som egentligen händer. Om 
man vill arbeta med filbiblioteket på 


olika sätt (t ex sortera det efter bok¬ 
stavsordning) är det inte så enkelt att 
ändra det programmet till att göra det¬ 
ta. För att bättre visa hur man kan läsa 
filbiblioteket, och hur det ligger lagrat, 
skrev jag programmet nedan. Det läser 
in filbiblioteket och lagrar det i tre lis¬ 
tor: en för namnet, en för antal block 
filen tar upp och en för filtypen. Pro¬ 


grammet är skrivet för att vara så lätt¬ 
förståeligt och klart som möjligt, så 
det är långsammare och tar större plats 
än vad det skulle kunna göra med mer 
effektiv kodning. När du väl förstår 
hur man gör kan du själv skriva om 
programmet så det blir snabbare och 
tar mindre plats. 

När man skall arbeta med filbiblio- 
forts. sid. 16 
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REM SKIPPR CHR$ C 34 '.> +MELLRN5LRG 


REM RENSR ID-KOD 
REM LäS IB-KOB 


rem SKIPPR MELLRNSLRG+VERSIOH+MELLRNSLRG+0 

rem rntrl filer =0 
. I NK 


1140 FOR. 1=24 TO 25 
1150 : 0ET#1.'R* 

1160 NEXT 

1170 IB$="" Tn ^ 

11P.0 FOR 1=26 TO 2 < 

11'30 GET#1..R* 

1200 : IB$=IB$+R* 

1210 NEXT 

1220 FOR 1=28 TO 31 
1230 •• GET# 1 .■ R'$ 

1240 NEXT 
174 0 ; RF=0 

1250 REM — LÄS FILNRMN pFR 

ISfiPl : FOR 1=0 TO 1 • REM SKIPFH 

1270 : •• CET#liR* 

1280 = NEXT fl RNTRL BLOCK 

I TO 1 : REM LÄS RNTRL BLOCKS 

: : BL=BL+RSC C fl*+CHR$ C 0) >*256 TI 

: 0PT*1,B* , PEPI LÄS SPHCE | L ^|| E '?' FÖI _JER -> DIRECTORY 

: F SLTr S.8Ä Tem^kippp mellrhslrs 

i ; RE” RENSR FILNRMN 

i if™ochr*<34) then fl*=fl|fh* 4 goto iss| ki REm LRoJILNRMN 

I Sf?.» TO 2 i I" 5^R RESTEN RV TYP 

: : GET#1.'R* 

: : TF$=TP$+R$ 

: NEKT o, t c THEN 1470 : REM LÄS FRHM TILL SLUTET fl- 

GET#1 ,R*_ IF SoRR FILHRMH I LISTfi 

rem lrgrr RNTRL block, i LI-T 
rem LRGRR FILTVF I LIoTg 
REM FORTSÄTT MEB NnoTfl FIL 

rem rntrl lebior block 


1230 
1300 
1310 
1320 
1330 
1340 
1350 
1355 : 
1360 ; 
13S0 ; 
1330 : 

1400 : 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1430 

1500 

1510 

1520 

1530 

1540 

1380 
1330 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2085 
2030 
2100 
2110 


SLUT 


/ BLOCKET 


bi*crf)=fl$ 
: blx.crf>=bl 
: TPSf.RF?=TPf 
GOTO 1250 
BF=BL 
CLOSE 1 
P.ETURN 


IS SKRIv"uT - BIRicTÖRv”^DNfTlBfTDlsorTP*O^^BLXO^RF^ 

PRINT "DISK-NRMN : ”[ " <&&>"„ i BN| 

FRI NT "BI SK-ID ' • • Rv -' / 

PRINT 

VM i blxc. i ); TRB< 10); DI« i > ; TPf< 1 ' 

NEXT 

PRINT "FRIR BLOCK. '■ " : BF 
PRINT "RNTRL FILER '• " HF 

return 


rerb'i 
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teket använder man två olika sekun¬ 
däradresser, 0 för läsning och 1 för 
skrivning. Dessa sekundäradresser an¬ 
vänds speciellt för detta när man kom¬ 
municerar med skivminnet. När filbi- 
blioteks-filen ($) öppnas med en av 
dessa sekundäradresser, ser den ut på 
samma sätt som det program som lad¬ 
das in när du skriver LOAD ”$”,8 (du 


Programmet nedan innehåller många 
REM-satser, och bör förklara sig själv. 
Notera hur kolon används för att visa 
hur olika strukturer ser ut. Jag bör väl 
säga att det finns andra sätt att läsa fil¬ 
biblioteket på. Man kan t ex öppna $ 
med en annan sekundäradress än 0 och 
1, och kan då läsa också BAM som 1ig- 


anger då ingen sekundäradress så 
den blir automatiskt lika med 0. I det¬ 
ta program, som du kanske känner till, 
används radnumren för att ange antal 
block varje fil tar upp. Följande lista 
visar hur filbiblioteket ser ut då det 
öppnas med sekundäradress 0 (för läs¬ 
ning). 


ger före bilbiblioteket. Mer om det nå¬ 
gon annan gång. Kolla igenom pro¬ 
grammet och se hur det fungerar. Om 
du hållt på ett tag, behöver du kanske 
inte ens knappa in det, utan kan skriva 
din egen (snabba?) version direkt. Ha 
det så bra. 

MOGF 


Tips-rutan 



Från en läsare har vi fått följande tips: 

Transformatorn, som skall mata ström 
till V1C bör INTE stå påkopplad när 
datorn ej används. ”Det är väl själv¬ 
klart”, säger ni kanske. Det är emeller¬ 
tid så, att jag har sett ett flertal VIC- 
ägare ha sin transformator påslagen 
alltid — alltså även när de inte använ¬ 
der datorn. 

Det riskabla med att ha transforma¬ 
torn påslagen utan någon belastning 
(inkopplad strömförbrukare) är, att 
den hela tiden kommer att gå på ”tom¬ 
gång”. Detta innebär risk för kortslut¬ 
ning och att den blir förhållandevis 
varm, redan innan någon strömförbru¬ 
kare kopplats till. 

En annan sak, som jag också lagt 
märke till är att en del datorägare 
stänger av transformatorn innan de 
stänger av datorn. Detta är också far¬ 
ligt, ty när man stänger av transforma¬ 
torn bildas en s k ”induktionsström”, 
som kommer att gå in i datorn, där den 
kan ställa till med komponentskador! 
Denna ström är så kortvarig att säk¬ 
ringarna inte hinner smälta av. 

Ola Axelsson 

Hässleholm 


9999989888889999888989898888999 


Byte 

innehåll 

0— 1 

Startadress (låg, hög) 

2— 3 

Länk till nästa rad 

4— 5 

Radnummer (skivstationsnummer) 

6 

RVSON (ASCII-kod 18) 

7 

ASCII-kod 34 (”) 

8—23 

Namnet på skivan + mellanslag 

24 

ASCII-kod 34 (”) 

25 

Mellanslag (ASCII-kod 32) 

26—27 

Skivans ID-kod (i vårat fall 2A) 

28 

Mellanslag (ASCII-kod 32) 

29—30 

Versions-kod (i vårat fall 2A) 

31 

0 (markerar slut på BASIC-rad) 


Filerna kommer sedan i 32-bytes block enligt följande. 


0— 1 

2— 3 
4—30 

31 

Länk till nästa rad 

Radnummer (låg, hög), antal block 

Mellanslag (1—3 st.), ”filnamn”, några mellanslag, filtyp (tre 
ASCII-tecken), mellanslag 

0 (markerar slut på BASIC-rad) 

Sista 32-bytes blocket ser ut så här. 

0— 1 

Länk till nästa rad 

2— 3 

Radnummer (låg, hög) antal fria block 

4—28 

BLOCKS FREE. följt av mellanslag 

29—31 

tre nollor, (slutet av BASIC-rad + slutet av program) 
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Kommunikation? 

Databaser? 


Handic information söker 
medarbetare! 

Du, som är intresserad av databaser oeh kommunikation mellan datorer har här en enastående 
chans att komma med bland pionjärerna på området! 


I dag finns redan flera databaser, Telebild och 
Postel är två. Flera är under utveckling bland an¬ 
nat genom medverkan från olika lokala VIC- 
klubbar och deras medlemmar. 

Vi kan räkna med att databaserna får en allt¬ 
mer ökad betydelse, bl a för köp/försäljning av 
programvara. Abonnenterna kan ju ”bläddra” i 
databasen efter något program, t ex, och när de 
granskat informationerna om olika liknande 
program gör de sitt val och kan omedelbart ”lad¬ 
da in” det köpta programmet. Själva betalningen 
kan ju ske t ex genom direktdebitering på QV1C- 
konto eller via teleräkningen! Det viktiga är ju att 
man så snabbt får tillgång till den programpro¬ 
dukt man valt ut. 



handic information inbjuder nu 

alla er databas-intresserade ute i landet att vara 
med och utveckla en ny databas i samarbete med 
oss. Ni får hjälp och informationer samt tillgång 
till en egen del i databasen. Ni behöver kunna 
programmera — gärna i maskinspråk — och ni 
bör ha lärt er något om databaser innan vi börjar. 
Vi ser gärna att ni som bor på samma ort bildar 
lokala ”databas-klubbar” — det ger er ju inte ba¬ 
ra ökade kunskaper utan även ett gemensamt in¬ 
tresses samhörighet. 

Är DU intresserad? 

Ring då till Nils Bildt eller Tomas Wredler på Da- 
tatronic AB, telefon 08-744 59 20 så kan vi snabbt • 
komma igång!. 

handic information ab 

— ett Datatronic-företag i information, kom¬ 
munikation och databaser. 


Sänd in svarskupongen till HANDIC INFORMA¬ 
TION, Box 42054, 126 12 STOCKHOLM. 

Namn. 

Bostadsadress. 

Postadress. 

Telefoner. 
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Nya fantastiska 
spelprogram 

O O ■ 

f ran = =£ -■ =— ^ 

—^ 

—■———^■1—P——L 

ELECTRONIC ARTS U.S.A. 

Från handic POST fick vi en hel serie f-a-n-t-a-s-t-i-s-k-a spel! 

Det är en helt ny generation av spel med en grafik och ljud och 
innehåll, som aldrig tidigare har setts. Tillverkare är en ny komet 
på spelmarknaden, Electronic Arts i U.S.A. Spelen kom så sent 
att vi inte hinner presentera detaljerade rapporter i detta nummer, 
men vi återkommer, var så säker! 


ARCHON— 
Electronic Arts 

Spelet kräver diskstation och (helst 
två), joy-sticks. 

Det första man ser är omslaget och 


det är synnerligen elegant — påminner 
om ett skivomslag med blankt fyr- 
färgstryck. När man öppnar det får 
man läsa hela historien om hur spelet 
konstruerades och om programmera¬ 
ren. Det är en mycket intressant läs¬ 
ning, och man är inte precis bortskämd 


med sådan information på spelför¬ 
packningarna. 

Manualen, handboken är mycket 
välgjord och lätt att följa med lagom 
ingående förklaringar. 

Spelet inleds med något av det bästa i 
musikväg jag hört i ett 64-spel. En av 
dem, som stod och tittade på och lyss¬ 
nade sade: ”kan dom inte ge ut den lå¬ 
ten på en singel?” 

Även grafiken på ”inledningsbil- 
den” håller hög klass. 

Redan från början ger spelet intryck 
av att vara seriöst, underhållande och 
framförallt originiellt och unikt. Detta 
är absolut inget plagiat av något ar- 
kadspel! 

Det positiva intrycket håller spelet 
igenom. Komibinationen av strategi 
och närstrid fungerar smidigt. 

Man börjar alltså ungefär som i ett 
schackspel, men i stället för löpare, 
torn och bönder har man t ex enhör¬ 
ningar, valkyrior och riddare. Den lju¬ 
sa och mörka sidans pjäser är olika. 
Både spelplan och regler skiljer sig 
från schack. Man flyttar pjäser mycket 
enkelt och bekymmersfritt med enbart 
joy-stick. 

Om man sätter sig i en ruta med en 
fiendepjäs i, uppstår det spelmoment 
som framförallt skiljer ARCHON från 
schack. Den enda lilla rutan förstoras 
så den fyller hela bildskärmen. Den vi¬ 
sar sig fylld av diverse hinder. Här 
skall nu de bägge motståndarna med 
var sitt karakteristiska vapen förgöra 
sin fiende. Även här sköts pjäserna en¬ 
bart med joy-stick, lätt och elegant. 
Dock är pjäserna/spelarna mer stres¬ 
sade nu för pjäserna rör sig snabbt (om 
man inte har troll eller golem, för¬ 
stås). 

För den som inte har någon kompis 
att spela mot eller bara har en joy- 
stick, går det bra att spela mot datorn. 
Tänk bara på att datorn är en mycket 
tuff motståndare i närstrider! 

Har man inte ens en joy-stick kan 
man låta datorn spela mot sig själv. 
Den spelar verkligen på riktigt — det 
är inte någon bestämd sekvens utan 
blir olika varje gång. (Kanske något att 
förgylla partajet med, lite vadhållning 
om vilken del av datorn som vin¬ 
ner . . .?) 
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Men får inte glömma att man utom 
pjäser, beväpnade till tänderna, också 
har en magiker till förfogande med si¬ 
na trollformler! 


... P.S. Man vinner genom att .utrota 
alla motståndare, låsa motståndaren så 
att hon/han inte kan flytta eller ocku¬ 
pera alla fem ”power points” (kraft¬ 
centra). 


STRATEGI-PLAN 



gg RUTA MED VARIERANDE 
FÄRG 

gg SVART RUTA 
Q VIT RUTA 


LAGUPPSTÄLLNINGAR: 


Vita sidan 
Valkyrie Archer 
Golem Knight 
Unicom Knight 
Djinni Knight 
Wizard Knight 
Phoenix Knight 


Svarta sidan 
Manticore Banshee 
Goblin Troll 
Goblin Basilisk 
Goblin Shapeshifter 
Goblin Sorceress 
Goblin Dragon 


Spelis (Trollformler): 

TELEPORT, HEAL, SHIFT TIME, 
EXCHANGE, SUMMON ELEMEN¬ 
TAL, REVIVE, IMPRISON 
Som framgår av såväl namn som troll¬ 
formler är det bra om man är ganska 
kunnig i engelska för att riktigt förstå 
den fantastiska värld som spelet åter¬ 
ger. Mina vänner som sett spelet tycker 
dock att det går ganska bra bara man 
tittar på någon som spelar det en gång 
först. (Sen har ju jag märkt att man 
faktiskt övar upp sitt engelska ordför¬ 
råd på det här sättet också!) 

Magnus Lyckå 


Arcon finns redan nu atr köpa ge¬ 
nom VIC postorder. Katalog finns 
att få hos din VIC-handlare. 


Snyggare listning med 
! och ? 


Att få snygga listningar på 
VIC-20 erbjuder vissa problem. 
Skärmens bredd på 22 
kolumner gör det svårt. 
Följande lilla program fungerar 
oberoende om man har någon 
minnesexpansion eller inte. 

Programmet byter ut PRINT mot ett 
?-tecken och REM mot ett J-tecken vid 
listning. Vid inmatning av nya pro¬ 
grammet kan man också använda 
PRINT eller ? samt REM eller !. Pro¬ 
grammet fungerar även vid listning på 
printer. 


av Äke Lundequist 

Program som har stora utmatnings- 
delar och/eller kommentarer blir be¬ 
tydligt snyggare. PROVA! Program¬ 
met som återges här laddar två ma- 
skirikodsrutiner på sammanlagt 67 by¬ 
tes i toppen på BASIC-arean. 

Rad 100—130 ändrar adresserna till 
datorns listrutin och tokeniseringsru- 
tin. 

Rad 140 utför ett hopp till en ma- 
skinkodsrutin som ändrar datorns 
minnesdisposition (De övre 67 bytena 
skyddas). Därvid förstörs också pro¬ 
grammet så tänk på att SAVEa pro¬ 
grammet INNAN DET KÖRS!!! 

Åke Lundeqist 


10 REM"** !? 831112 fiKE LUNDEQUIST **" 

20 PEM 

30 DRTR 32-124- 137,160-5, 185-251-1,240,29.201.34,240-13,201,33,208,5,169 

40 DRTR 143,153.251,1,200,208,235,96,200,185,251,1,240.6,201,34,208,246 

50 DRTR 240,240,96,8,201,153,208-7,132,73,169,63,76,233,198,201,143,208 

60 DRTR 7,132,73,169,33,76,239.198,40,76.26,199-4 

70 B=PEEK<643)+256*FEEK(644> fi=B-67 

80 P0KE643,RRND255 P0KE644,R/256 

90 F0RI«=RT0B : PERDC P0KEI - C: HEXT 

100 P0KE772,RRHD255 

110 PQKE773,fi/256 

120 PQKE774,R+40RND255 

130 P0KE775,<R+40)/256 

140 SVS58235 


COMPSOFT 

LÄTTFIL 



Det moderna registerprogrammet till VIC 64 
från din datahandlare eller: 


Cömp5öft) 

SWEDENAb __/ 


Filipstadsbacken 26, 123 43 FARSTA 
Tel 08-93 25 22, 94 86 60 
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Utmärkelsen Årets Exportlyft under 1983 har tilldelats 
Datatronicföretaget handic Software ab. Utmärkelsen 
delas ut av Sveriges Exportråd, och en jury bestående 
av Sveriges Exportråds VD Sven-Eric Sjöström, 
Industriförbundets VD Lars Nabseth och SAS VD Jan 
Carlzon har kommit fram till att Datatronic/handic 
Software har stått för Årets Exportlyft i Sverige! 


ÅRETS 

EXPORT¬ 

LYFT 

1983 


Datatronic, tillsammans med handic 
electronic AB, är generalagent för 
Commodore hemdatorer och profes¬ 
sionella datorer. Under 1982 började 
man att utveckla program som skulle 
vara av en typ som även lämpar sig för 
export. Detta till skillnad från den tidi¬ 
gare utvecklingen av program endast 
för den svenska marknaden. 

Vid årsskiftet 1982—83 blev Data- 
tronics utvecklingssida ett eget företag, 
handic Software ab. Detta företag syss¬ 
lar med utveckling, tillverkning och 
försäljning av programvara och hård- 
varutillbehör till Commodoredatorer. 

De största framgångarna har givet¬ 
vis kommit genom kalkylprogrammet 
Calc Result, vilket finns i fyra olika 
versioner. Detta lanserades i januari 
1983 och har givit den nödvändiga 
draghjälp man behövt för att kunna 
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den portabla VIC-64:an med inbyggd diskdrive och färgmonitor. 


Commodore SX-10 — 

bygga upp ett distributionsnät med 
generalagenter i Norge, Finland, Dan¬ 
mark, Frankrike, Irland, Spanien, Ita¬ 
lien, Flolland, Belgien, Grekland, 
Singapore, Australien och Nya Zee¬ 
land. Egna dotterbolag vid namn han- 
dic Software startades under hösten 
1983 i USA, England och Väst- 
Tyskland. Etablering på nya markna¬ 
der runt om i världen sker kontinuer¬ 
ligt. 

Parallellt med detta har även lanse¬ 
ringen av övriga produkter i sortimen¬ 
tet skett med framgång, t ex VIC- 
Switch fleranvändarsystem för VIC- 
datorerna, Forth, Stat och Graf för 
V1C 20 och V1C 64, spelen Bridge och 
Space Action m fl. 

Flittills har Calc Result i de olika 


versionerna sålts i ca 100.000 exem¬ 
plar, varav ca 90 °7o på export. Årsom¬ 
sättningen på utvecklingssidan upp¬ 
gick till 5 miljoner 1982, 1983 nådde 
man 40 miljoner. Under 1984 förvän¬ 
tas ökningen fortsätta, bl a tack vare 
att dotterbolagen i USA, England och 
Väst-Tyskland är i full gång. 

Varför har man lyckats? 

Anpassningen till att olika markna¬ 
der/länder har olika egenheter har stor 
del i framgången. 1 Calc Result kan 
man välja mellan åtta (8!) olika språk 
när man startar upp programmet. 
Programmanualerna trycks på åtta oli¬ 
ka språk. Detta har givit handic Soft¬ 
ware en tämligen unik ställning, inget 
annat program har denna möjlighet. 
Marknadsföringen har även anpassats 


på samma sätt, olika länder kan inte 
behandlas lika, anser man på handic 
Software. Således finns alla broschy¬ 
rer, videofilmer om programmen, affi¬ 
scher, annonser etc på de olika pråken. 

I USA, där 

huvudkonkurrenterna finns, 
har man kanske inte riktigt 
insett att Europa inte är en 
marknad, utan flera 
individuella marknader. Det 
gör att även ett företag från 
lilla Sverige kan slå de stora 
konkurrenterna på fingrarna, 
med rätt anpassade produkter 
och en orädd satsning. 


handic Software ab 

Box 420 46 • 126 12 STOCKHOLM • Tel. 08-744 59 20 
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Störtlopp 

(Speedski) 


VIC-20 



För att kunna köra programmet på en 
expanderad VIC-20 (mer än 3K), skriv 
in förljande rad och tryck på RE- 
TURN innan du laddar in program¬ 
met: 

POKE 642,16:POKE 644,30:POKE 
648,30:SYS 64824 


Ändring av VIC-20 från ex¬ 
panderad till oexpanderad 
utan att man behöver ta ut 
exp. modulen 

Det lilla programmet intill fick vi 
också från Tommy. Det ändrar om en 
expanderad VIC-20 så att man utan att 
ta bort expansionsmodulen får ett 
mindre minne med samma adresser 
som en oexpanderad VIC-20. Det gör 
att man t ex kan köra SPEEDSKI utan 
komplikationer även om man har en 
expanderad VIC-20. 

Speedski 

Speedski närmar sig gränsen för vad 
man kan åstadkomma med en oexpan 
derad VIC-20. Som de flesta bra ac- 
tionspel är Speedski lätt att lära men 
svårt att bemästra. Det mest förvånan¬ 
de är snabbheten i programmet trots 
avsaknad av maskinspråksrutiner. Bå- 


insänt av Tommy Sandbacka, Finland 


Från Finland fick vi det här 
programmet — det passar ju 
bra nu i skollovstider och 
vintersportsäsong. Tommy 
skriver själv: 


de ljud och bild ger en känsla av riktig 
skidåkning — komplett med hopp, 
träd, portar, staket och en hela tiden 
föränderlig pist. Programmet var in¬ 
fört i julinumret av COMPUTE! 1983. 
Författaren heter Dub Scroggin och 
detta program är med udantag av någ¬ 
ra smärre förändringar samma som 
orginalet. 

Spelet går ut på att styra en skidåka¬ 
re genom 10 st portar och samtidigt 
undvika hinder bestående av träd och 


stängsel. Hopp kan göras på de små 
kullar som finns efter varje port. Du 
bör alltid försöka utnyttja dem. De 
förbättrar inte bara din tid utan tar dig 
också över en massa träd som du an¬ 
nars kunde köra på. Varje gång du gör 
ett hopp flyttas du ner en rad på skär¬ 
men, dock högst 3 rader under cent¬ 
rumlinjen. Detta gör att du får mindre 
tid på dig att reagera på olika hinder. 
Ifall du kör på ett träd flyttas du upp 
en rad, dock högst 10 rader ovanför 
centrumlinjen. På det här sättet kom¬ 
mer du litet längre bort från målet, 
men får samtidigt mera tid på dig att 
reagera. 

Skidåkaren kontrolleras från tan¬ 
gentbordet. Upptill 4 spelare kan delta 
och köra maximalt 5 åk. Före varje åk 
kan spelare välja mellan 5 olika svårig¬ 
hetsgrader. Den bästa möjliga tiden, ca 
29 sekunder, kan uppnås i svårighets¬ 
grad 5 genom att man passerar alla 
portar, undviker alla hinder och ut¬ 
nyttjar alla hopp. För varje missad 
port adderas 5 sekunder till tiden. Vin¬ 
nare är den som har den bästa tiden. 
Skillnaden mellan svårighetsgraderna 
är att farten är något högre och träden 
flera med ökad svårighetsgrad. 

Programmets upphovsman har en¬ 
ligt egen uppgift åkt fem omgångar på 
168 sekunder vilket torde vara världsre¬ 
kord. För att bli en ”winner” i Speed¬ 
ski krävs koncentration, träning och 
åter träning. Knappa in programmet, 
sen ä dä bar å åk! 

Tommy Sandbacka 




BEC ,RpHS^ lHG 


flV 


VUHHE 


^0 „ 

30 <U0UW> 

40 p *VwT" 
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10 P0KE36879 ,26 : DI HZ'/. < 4 ).. Sf < 5 ) 

20 PRINT"{CLERR><5 DOWN> SPEEDSK I" 
30 P0KE56 .• 28 : P0KE55, 250 : P0KE52, 28 = P0KE51 .• 250 
40 RERDX:IFX-0THEH60 

50 FORI=XT0X+7:READY:POKEI, V ■ NEXTI:GOTO40 
60 F0RI = 1T05 ■' RERDSf < I ) : NEXT 
70 DRTR7672,16,56,56,124,124,254,254,16 
80 DRTR7664,0,0,15,32,64,123,0,0 
30 DRTR7656,0,0,240,4,2,1,0,0 
100 DRTR7648,40,40,40,40,104,56,44,40 
110 DRTR7640,32,16,136,68,34,17,3,4 
120 DRTR7632,4,8,17,34,68,136,16,32 
130 DRTR7624,16,28,30,23,16,16,16,56 
140 DRTR7616,0,0,0,0,255,85,170,255 
150 DRTR7608,16,24,126,24,26,44,72,16 
160 DRTR7424,0,0,0,0,0,0,0,0 
170 DRTR7532,3,24,126,24,38,52,13,8 


180 DRTR7584,0,0,0,0,0,0,255,0 
130 DRTR7576,3,8,28,3,62,3,127, 3 
200 DRTR7563,3,3,62,3,3,3,0,0,0 

21n DRTANVB0RJRRE , MEDELMATTR , RVRHCERRD,OLYMPISK,PROFESSIONELL 
220 PRIHT"{CLEAR}<DOWN><BLK)<RVS> S P E E D S K I 

230 PRIHT"{ELU> PORNGEN 0KRS MED 5 VRRJE GRHG DU MISSAR EN PORT.LflGSTR PORNG 

VINNER" 

24R PRI NT" <DOWN> TRYCK {RVS> <GRNK <BLU> <OFF> FOR VRNSTER" 

250 PRINTTRBC8?" {RVS> <GRN»<BLU> <OFF> FOR HÖGER" 

260 PRI NT" <DOWN> RNTRL RK.RRE <1-4) ♦ <LEFT> "; : POKE204,0 

270 GOSUB320 : NP=VRL<A#) : IFNPC1ORNP>4THEN270 

280 PRINT"{LEFT}"NP : PRIHT"CUP> RNTRL RONDER <1-5) ♦{LEFT> "; 

230 GRSi IB320 : NR=VRL < Rf ) : IFNR<1ORNR>5THEN230 
300 POKE204 , 1 : PRINT"{LEFT>"NR: : R=1 : P=1 

310 PRINT"{DOWN}<RVS>{RED) AKRRE "P"<3 LEFT># {RIGHT} VRLJ PIST " 

320 FOR1=1T05 : PRINT" "I ; "{LEFT>="S*<I ) : NEXT 

330 GOSUB320 : 3K=VRL < R$) = IFSK<1ORSK>5THEN330 


340 RN=<SK+1 )/10 : Sf=S$<SK) : 5K.=35-5*3K 

350 P0KE36863,255:PRI NT" <CLERR>":P0KE36373,15 •S=36377 

360 FORI = 1T022:L=INT<RND<1> * 13) +1 : PRINT"{RED><"TRB<L)"{GRN}?"TRB <20)"{REDX"=NEXTI 
370 B=7310 : C=30720 : V=20 : Q=55:F=Q:POKEB,Q : POKEB+C,6 : POKEB+22,32 : POKEB+21,32 : POKEB 


+23,32 

3 R 0 pnKES125.57:P0KE8131,57 = P0KE3125+C,4 = P0KE3131+0,4 = W=23 = Z=10 
330 PRINT"{HOME>{3 DOWN>{RVS > (BLK>"TRB < 5 > Sf"{13 DOWN>" 

4O0 FOR1=8126T03130 = POKE1,52 = FOKEI+C,4 = NEXTI 

410 F0RI=1T05 : POKES-1,220+1HT<1/5)#18 : FORT=1TO70 : NEXT : POKES-1,0 : FORT=1TO600 : NEXT 
: NEXT 

420 Tlf="000000" 

430 GOSUB820POKES,246 

440 K=-B*2 =IFSKTHENFORT=1TOSK : NEXT 

450 IFF=0THENPOKEB-21,53 = POKEB+C-21,3 : GOTO470 

460 POKEB-23,53 = POKEB+C-23,3 

470 IFPEEK<137)=23THEND=-1 : F=Q = GOTO430 

480 D=1 : F=53 

430 G=G+1 : IFGCWTHEH530 

500 G=0 : E=E+1 : IFE=10THENPRINT"{PIJR>388833888338883838333" : GOTO560 
510 IFÉ>10THENPOKEB,56 = G0T0530 

520 X=RHD< 1)* 10+2 : PRINT" {REDX"TflB<X) " {PUR>3444449"TRB<V) " (REDK" = GOTO560 
58R IFG=ZTHENX=RHD <1) # 10+4 = PRINTTRB< X)"{UF >{BLK »=" 

540 IFRND<1)>RNTHENPRINT"{RED><"TRB<Y)"<" : GOTO560 

550 L=RND<1)#13+1 =PRINT" {REDK"TRB<L) " {GRN>?"TRB<Y) " {REDX" 

560 I FPEEK < B ) O320RPEEK< B+D ) O32THEN530 
570 B=B+D = POKEB, F '• POKEB+C, 6 = G0T0440 

530 X=PEEK<E) = IFPEEK<B+D)=52THEHH=H+1 : POKES-1,245 FORT=1TO10 = NEXTT : POKES-1,0 : GOT 
0570 

530 IFX=56THENTM=INT <TIX60) : H=10-H : POKES-1,0 : POKEB+D,F : POKEB-22,32 : GOTO730. 

600 IFPEEK < B+D)»57THENP0KES-3,220 : GOTO650 
610 IFX062RNDX061THEN650 

620 POKES,253 : D=D*2 : G=G+10 : FORI=1TO10 : PRINT"{REDX"TRB<20)"C" : NEXTI:IFSK>0THENSK 
s^K-2 * 

630 IFU>-3THENB=B+22 = U=U-1 
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640 PGKES.. 246 : GOTO570 

650 IFX=60THENPDKEB,60:D=D*~2 : GOTO680 

660 IFX=63THENP0KEB-22,50:P0KEE,31:GOT0630 

670 POKES-3,Q: GQT057Q 

680 FORJ=2TO0STEP-I:FORI=i2-JTO12+J:P0KE36864,I HEXTI,J 

630 OS=QS+l : FORT=0TO127 : POKES,255-T : P0KEE-22+C,INT(T/22>+2:NEXTT:PQKES-1,0 PQKES 

•' 446 __ 

700 IFPEEK<E '.> =51 THEND=-22 : U=U+1 : IFU= 10THENPEINT" {RVS> {CLERR} (DOWNJ F0RS0K IGEN" : 
P0KE36863,240:GDT07S0 

710 IFX=60THENPOKEB-22,32:B=B+K:F=-53* < K>0 >-35* < K<0 > : POKEE,F:POKEB+C•6:0010440 
720 GOTO570 

730 PQKES,0■FORT=128T0255:POKES-3,T : NEXTT:POKES-3,0 

740 F0KE36863,240 = PRINT" {CLERR >(D0WN> PRK0RNINORR ="OS: PR INT" NISSRPE priRTRP=" 

H : PRINT" TID ="TN 

750 SC=TM+5*H : PRINT" PORNG="SC : POKES-2,220:FORT=1TO100:NEXTT:POKES-2,0 P0KE36863 
, 240 

760 U=0 : ZV. < P > =Z V < P '} +SC: PR I NT " {DONN > {RVS > OMGRNG " R : PR I NT 

770 FOR I = 1T0NP : FR I NT " RKRRE # " I ZV. (I > : NEXTI 

780 SC=0 G=0'E=0 : OS=0 : H=Q'IFU=10THENU=0:POKES,0 : GOTO310 

730 P=P+i :IFPCNP+1THEN310 

800 R=R+1:IFRCNR+1THENP=1 GOTO310 

810 PR I NT " (2 DO UN > {RVS > GRNE OVER " : POKE 198.0:0081IB820 : Rl IN 

820 GETRf : IFR$=""THEN82Q 
830 RETURN 
RERDV. 


Nya listningar 

Inne i strängar kan man skriva olika 
tecken som inte syns i vanliga fall. Det 
kan vara markör-kontroll-tecken, tec¬ 
ken som ändrar färger, eller någon av 
funktionstagenternas tecken. När 
program som innehåller dessa tecken 
listas, kan det ofta vara svårt att ur 
programlistningen förstå vilken tangent 
som använts för att få fram tecknet. 
För att undvika dessa problem, har vi i 
det här numret listat alla speciella tec¬ 
ken som förekommer i programlist- 
ningar i klartext. Tecknet som rensar 
skärmen, tex, listas inte som ett 
omvänt hjärta utan som CLEAR in¬ 
neslutet av ”krullparenteser” (se ned¬ 
an). Texten som används till att ange 
tecken, är på engelska. Anledningen 
till det är att texten som skall skrivas i 
flera fall redan finns skriven på tan¬ 
genterna (färgerna är ett sådant exem¬ 
pel). Om ett specialtecken används fle¬ 
ra gånger i rad, skrivs texten för detta 
tecken ut enbart en gång. Men före den 
skrivs då ett tal som anger hur många 
gånger tecknet skall tryckas. 

Följande tabell förklarar de olika 
texterna, samt anger vilka knappar 
som skall tryckas för dem. Om någon 
ser vissa likheter mellan vårt format 
och det som används i den amerikan¬ 
ska tidningen COMPUTE!, är det för 
att idén till att göra på detta sätt kom¬ 
mer därifrån. 


Symbol Tryck tangent Funktion 


(CLERR> 

CSHIFT] 

CCLR/HGME] 

<HOME> 

CCLR/HOME] 

(IJP> 

CSHIFT] 

CTCRSRi] 

(DOWN) 

CTCRSR4] 

(LEFT> 

CSHIFT] 

C<H]RSR-KJ 

(RIGHT> 

C+CRSR4] 

(RVS > 

[CTRL] 

C93 

(OFF> 

[CTRL] 

C0] 

(BLK> 

[CTRL] 

Cl] 

(WHT) 

[CTRL] 

C2] 

(RED) 

CCTRL] 

C3] 

(CVN > 

CCTRL] 

C4] 

(PUR > 

[CTRL] 

C3] 

(GRN> 

[CTRL] 

C6] 

(BLU> 

[CTRL] 

C7] 

(YEL> 

CCTRL] 

C8] 

(Fl > 

CF1 ] 


(F2> 

CSHIFT] 

CF1 ] 

(F3> 

CF3] 


(F4) 

CSHIFT] 

CF3] 

(F3> 

CF5] 


(F6> 

CSHIFT] 

CF3] 

(F7> 

CF7] 


(F3> 

CSHIFT] 

CF7] 


Rensa skärmen 

Markör till övre vänstra hörnet 
Markör upp 
Markör ner 
Markör vänster 
Markör höger 

Starta omvända (ReVerSe) tecken 

Avsluta omvända (ReVerSe) tecken 

Sätt färg till svart 

Sätt färg till vit 

Sätt färg till röd 

Sätt färg till cyan 

Sätt färg till violett 

Sätt färg till grön 

Sätt färg till blå 

Sätt färg till gul 

Funktionstangent 1 

Funktionstangent 2 

Funktionstangent 3 

Funktionstangent 4 

Funktionstangent 5 

Funktionstangent 6 

Funktionstangent 7 

Funktionstangent 8 


En siffra innesluten av -parenteser (t ex K7*) anger att du skall trycka på 
commodore-tangentenCOpå samma gång som angiven siffra. Resultatet blir att 
färgen sätts till en av de övriga 8 färgerna som inte står på tangenterna 1—8. 

Hoppas du är nöjd med de nya listningarna. Om inte, skriv gärna hit och tala 
om hur du vill ha det. 

Ha det så bra. 


MOGF 
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Strängvariabelsorteringsprogram 


Utöver sorteringsprogrammet har jag 
tagit fram en annan subrutin i ma¬ 
skinspråk, som via ett SYS-kommando 
sätter en hel eller halv ram runt bilden. 
Det piffar upp menybilder m m. Dess¬ 
utom bifogas ett BASIC-program, 
forts, på sid. 28 


0 REN##*SKflTTEDATflPROG. YNGVE LINDBLAD 83.12.01. SKÄLLINGE VRRBERG*** 

1 REN**FILHflNTERINGSRUTIN FöR VIC NED AÄö SANT NTHNCODSPROG. FÖR RRN RUNT BILDEN 
** 

4 Q=7652 

10 K=PEEK t; 56 > *256+PEEK < 55 >-141 
20 V=INT<K/256? 

30 FOR I =KTOK+140 : REHDF : POKEI.. P = C=C+F' : NEXT 
40 P0KE797,V : POKE796,K-V*256 
50 PQKE56, V : P0KE55 , K-'V*256 
11A P0KE631,131=POKE198,1:END 
115 SVSQ : NEW 

120 DATA32,212,243,240,2,24,96,32,223,243,138,72,165,186,201,1 

130 DRTR240,3,76,86,243,165,185,41,15,240,247,32,77,248,169,0 

140 DRTR32,144,242,32,227,243,144,3,104,169,0,76,153,243 

170 DRTR216,169,21,141,254,29,169,00,141,255,29,172,255,29,174,254,29 

180 DATA169,170,153,00,30,157,00,30,153,242,30,157,242,30,169,00 

190 DATA153,00,150,157,00,150,153,242,150,157,242,150,169,22,24 

200 DATA109,255,29,14],255,29,169,22,24,109,254,29,141,254,29,224,241,203,200 

210 DATA162,21,169,170,157,00,30,169,00,157,00,150,169,170,157,223,31,169,00 

220 DATA 157,228,151,202,16,233,96,00,00 

READY. 


Jag läste artikeln om konsten att sortera i VIC-rapports 
julnummer och detta plus att jag fått låna en skrivare över 
julhelgen, gjorde att jag passar på att skicka in ett 
strängvariabelsorteringsprogram (vilket ord!), skrivet som en 
subrutin i maskinspråk. 


0 REN*********SKÄLLINGE VRRBERG 83.12.25 YNGVE LINDBLAD********* 
1 REN**N-COBSPROG. FöR SORTERING AV MRX 255 STRÄNGVARIRBLER 

4 Q=7652 : REN"<15 DEL> 

5 FORI=673T0766:READD:POKEI,D : NEXT 
10 K=PEEK < 56 > *256+PEEK < 55 ? -83 

20 V=INT<K/256) 

30 F0RI=KT0K+82:READD:POKEI,D:NEXT 
50 P0KE56, V : P0KE55, K.-V*256 ■ P0KE52, V P0KE51, K-V*256 
60 PRINT"{OLEAR} <DOWN>VID SORTERING SKRIV EN RAD SON EX 
70 PRINT"<DOWN>10 POKE0,150 : Af(200)= IDOWN}Af <200 >:SYS"; K 


SON SKALL SORTERAS 


NEDAN" 

<DOWN } 200 S' 


75 PRINT"\DOUN>150 STAR FöR ANTALET 
ART AV SORTERING 

80 PRINT"<DONN>EX OVAN SORTERAR STRÄNG. <BOWN>fl#<50> TILL Af<200?":END 
115 SVSQ : NEW : REN"{18 DEL) 

100 REN DATA SATTSER FÖR SUBRUTINER TILL SORTERING AV STRÄNGVRRIABLER 
110 REN PROGRANNET SKALL LÄGGAS I NIHHET PA STARTADRESS 673 
120 DATA 165,71,133,1,165,72,133,2,96,162,3,198,1,165,1,201,255,208,2, 
130 DATA 2,202,224,0,208,241,96,177,1,209,71,96,160,0,177,1,72,200,192 
140 DATA 208,243,160,0,177,71,72,200,192,3,203,243,160,2,104,145,1,136 
150 DATA 255,203,243,160,2,104,145,71,136,192,255,208,248,164,185,136, 
160 DATA 162,3,198,71,165,71,201,255,208,2,198,72,202,224,0,208,241,96 
200 REN DATA FöR SORTERINGSPROG. 

210 REN PROG ÄR RELOKERBART 

220 DATA 165,0,133,136,32,161,2,32,178,2,160,1,177,71,133, 139, 177,1,13 
230 DATA 200,177,71,133,140,177,1,133,142,160,0,32,138,2,48,2,177,71,1 
240 DATA 135,177,141,209,139,43,17,208,12,280,196,135,208,243,160,8,32 
258 DATA 2,48,3,32,193,2,162,1,198,186,223,186,203,192,32,237,2,198,0, 
260 DATA 0,224,1,203,174,96 

READY. 


AR FöR ST 


198 

, 192 
96 


f, 141 
33 
, 138 
166 
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0 REM ***#PROG.83.07.04. VNGVE LINDBLAD VflRBERG**#* 

1 REM MTANCODSPRQG. FÖR RAM RUNT BILDEN 
10 K=PEEK< 56 ? »256+PEEK < 55 ? -95 

20 V= INT <. K/256 ) 

30 FORI=KT0K+94:READP : POKEI,P : C=C+P : NEXT 
40 P0KE797,V : P0KE736,K-V#256 

50 POKE56, V: P0K.E55, K-V*256 : P0KE52, V : P0KE51, K-'v'*256 
110 PRINT"ICLEAR)<2 DOWN){RIGHT>SV3"K"FöR HEL RAM" 

115 PRINT"<DOWN>{RIOHT>SV3"K+67"FÖR DEL AV RAM”:SVSK 

170 DATA216, 169,21.. 141,254,29, 169,00, 141,255,29, 172,255,29, 174,254,29 

180 DATA169,170,153,00,30,157,00,30,153,242,30,157,242,30,169,00 

190 DATA153,00,150,157,00,150,153,242,150,157,242,150,169,22,24 

200 DATA109,255,29,141,255,29,169,22,24,109,254,29,141,254,29,224,241,208,200 

210 DATA162,21,169,170,157,00,30,169,00,157,00,150,169,170,157,228,31,169,00 

220 DATA157,223,151,202,16,233,96,00,00 

230 REM DATA SATS 2 PA RAD 180 SÄTTER TECKEN PA SIDORNA OCH 

240 REM SISTA DATA SATSEN PA RAD 180 SÄTTER FÄRGEN PA SIDORNA 

250 REM DATA SATS 4 RESP.9 PA RAB210 GÖR DITO FöR ÖVRE KANT 

260 REM DATA SATS 14 OCH SISTA FA RAD210 GÖR DITO FÖR NEDRE KANTEN 

READV. 


80 REM#*PROG. FÖR TEST AV STRANGSORTERING SKALLINGE 83.12.25 VNGVE LINDBLAD** 
90 PRINT"<CLEAR><2 DOWN>MAX 255" 

100 INPUT"HUR MANGA?";N 
110 BIMRfCN) 

120 PRINT"<CLEAR>TILVERKAR STRANGHR" 

14Pi fl=RND (SD) : FOR I = 1 TON • PR I NT I " {IJP > " : N1 = I NT C RND ( 1 > *6+1>:Rf=" “ 

190 FOR,T=lTONl : Bf“CHRf(INT (RND( 1 >#26+65) > : AS=Af+Bf ; NEXTJ : Af < I >=Af : NEXTI 
250 PRINT"{HOME)<19 DOWNJTRVCK <RVS>K<OFF> FÖR KONTROLL" 

252 PRINT" 

255 PRINT"TRVCK <RVS>S<OFF> FÖR SORTERING 

262 GETGTf : IFGTf=”K"THENGOSUB340 

265 IFGTf="S"THEN270 

267 GOTO250 

270 PRINT"SORTERAR" 

280 T1=TI 

285 POKE0,N:Af(N)=Rf(N)- SVS7597 

300 T2=TI 

310 PRINT"FÄRDIG" 

320 PRINT"TRVCK KN.FöR UTSKRIFT" 

330 GETGTf : IFGTf=""THEN330 
332 GOSUB340 
335 GOTO350 

340 FORI = 1TON:PRINTI,Af <I>:NEXTI:PRINT"<2 DOWH>"=RETURN 

350 PRIHT:PRINTN"STRANG. SORTERADE PA "(T2-T1V60"SEK.":RUN100 

READV. 


0 REM***SKATTEDATAPROG. VNGVE LINDBLAD 83.12.01 SKALLINGE VARBERG*** 

3 KX.=7585: QX=7652 

10 DIMD <12,12? : BIMS <12) 

25 M=0 

30 PRINT"<CLEAR><2 DOWN>{RIGHT> LASA SKRIVA ELLER 

35 PRINT" <DOWN> <2 RIGHT)ANDRA DATA : <RVS> {REIUTRVCK : 1 {OFFMBLU) " 

40 PRINT" {2 D0WNX2 RIGHT)SPARA DATA : (RVS) {RED5 TRVCK : 2 <OFF> (BLU) " 

45 PRINT" {2 D0WNX2 RIGHT)HAMTA DATA XRVSX.RED)TRVCK : 3 {0FFXBLU) " 

50 PRINT" <2 D0WNX2 RIGHTITOTHL SUM. XRVSXRED)TRVCK : 4 {OFFXBLU) " 

70 SVSK); 

80 GETGTf : I FGTfO" 1" ANDGTfO " 2 " ANDGTf O " 3 "ANDGTfO " 4 " THEN80 

90 IFGTf="4"THEN580 

100 IFGTf="2"THEN310 

110 IFGT$="3"THEN450 

130 M=M+1:IFM>12THENM=1 

140 PRINT"{CLEAR>{2 DOWN> LÖN ="INT<D<M,1)), 

145 PRINT" SKATT DO ="INT<D(M,2)) 

150 PRINT" {DOWN> RESEERS '■ " INT<D < M, 3) ) , " RESEKOSTN : " INT<DCM, 4> > 

160 PRINT"{DOWN > TRRKTAM. :"INT < D < M,5))," ÖK.OMKOST ; "INT CD CM,6 >) 

170 PRINT"{DOWN> SJUKFENG : "INT<D< M,7>)," SKATT DO :"INT{D(M,3)) 
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rappo rt 


1S0 PRI NT" {DDWN> ÖVRIG INK : " INT< D(M, 9> ) , " SKRTT DD : " INT<D{M, 10) ) 

190 PRINT"{DDWN) RES.RRB = " INT'.:D<H, 11 > > , " RES<BIL)KM: " INTCDCM; 12) ) 

200 PRINT"{DDWN) <RVS>{PUR)MANRD"M"{DFF){RED>ÄNDRING 7 J/N"; 

205 PRINT" MENV TRVCK M<BLU>" 

210 SVSQ/i 

220 GETGTf : IFGTfO" J"RNDGTfO"N"RND0T$O"M"RNDGTfO" "THEN220 

225 IFGTf="M"THEN25 

230 IFGTf="N"ORGTt=" "THEN130 

240 PRI NT" <2 UP> {RED ) TRVCK RETIJRN EFTER VRPJE RRD 
245 PRINT"{HDME){2 DDWN)", 

250 FDRI=1TD12 
255 N=N+1 
260 INPUTDCM.I) 

262 IFD<ri, I)>999999THENPRINT" {RED> <9 LEFT>E000000E :'ELU> <3 LEFT) " ; : GOTD 260 
265 IFN=2THEN275 ' 

270 PRINT "", NEXTI 

275 N=0:PRINT"(BONN}",■NEXTI 

300 GOTO140 

310 GOSUB740 

320 GET GTf : IFGTf=""THEN320 
330 Mf="DRTR" 

340 OPEN1,1,2 

350 PRINTTRBC33)"{RED){RVSIVANTfl<BLU><OFF>" 

370 PRINT#1.Mf 
F0RI=1TD12 
FDRJ=1T012 

PR I NT# 1, D { I .■ J } : NEXTJ 
NEXTI 
CLDSE1 
GDT025 
GOSUB740 

GET CTf : IFGTf=""THEN460 
OPEN1,1,0 
INPUT#1,Mf 

PRINTTflB<30)" {RVS>{RED>HÄMTAR{OFF} {BLU>"M$ 

F0RI=1TD12 


380 

390 

400 

410 

430 

440 

450 

460 

470 

480 

490 

510 

520 

530 

540 

550 

560 

570 

580 

585 

590 

600 

610 

620 

630 

640 

645 

650 

660 

670 

680 

690 

710 

720 

730 

740 

750 

760 

770 

775 

780 

785 

790 

800 


F0RJ=1T012 

INPIJT#1,DCI, 

NEXTJ 
NEXT I 
CLD3E1 
GOTQ30 

PRINT"<CLERR><2 DDWN><5 RIGHT>{RED>ARETS 3RLD0{BLU>{DOWN>" 
SVSKX 

F0RI=1T012 
FDRJ=1TD12 
S <I)=S <I)+DCJ,I) 

NEXT J 
NEXTI 

PRINT"{RIGHT >LÖN : "INT<S<1))," {RIGHT>SKRTT DD :"INT < S <2 > > 


"INT(S(3)X 
"INT{S<5IO, " 
"INT<S<7>>," 
"INTCSW)," 
I NT CS <11. 


{RIGHT > RESEKDST. 
{RIGHT}TR.DMKOST 
{RIGHT)SKRTT DD 
{RIGHT)SKRTT DD 
{RIGHT)RES KM 


"INT<S<4>> 

"INT <S<6)) 

"INT(S<3>) 
"INT<S{10)) 

•• "INTCSC12)) 


PRINT"{DDWN){RIGHT)RESER 
PRINT"{DDWN){RIGHT)TRAKTA 
PRINT"{DDWN) {RIGHT)FÖRS.KRSS 
PRINT"{DDWN) {RIGHT)ÖVRIG INK 
PRINT"{DDWN){RIGHT)RES.RRB 

PRINT"{4 RIGHT){RVS){RED)TRVCK EN KNAPP<BU D {OFF)" 

GETGTf IFGTf=""THEN710 
FDRI = 1TD12 '• S < I > =0 : NEXT 
GDTG30 

PRINT"{2 DDWN){RIGHT) {RVS){RED)ÄR DU SÄKER 7 J/N{BLU) {QFF>" 

GETGTf: IFGTf O " J " RNBGTfO " N " THEN750 
IFGTf="N"THENGOTD30 

PRINT"{CLERR){5 DDWN) VÄND KASSETTEN OCH <DnWN> SPALR TILLBRKR 
PRINT"{DDWN) BANDET" 

PRINT " {3 DDWN) {RVS>{RED)KLRRT?CDFF)" 

PRINT”{DDWN) {RVS)TRVCK EN KNAPP {BLU){OFF)" 

CUC1/V 
O T ö^/ii 

RETURN 


RERDV. 
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som går ut på att man varje månad un¬ 
der året samlar upp sina uppgifter för 
deklarationen. Det kan naturligtvis an¬ 
vändas även till annat om man ändrar 
kontonamnen. 

Sorteringsprogrammet består av en 
maskinkodsladdare i BASIC, som jag 
tror beskriver sig själv och hur man an¬ 
vänder det i sina egna program. 

Det program som följer därpå är 
skrivet i BASIC och ett testprogram, 
som vill visa hur sorteringsprogram¬ 
met används och hur snabbt det sorte¬ 
rar (ca 9 sek för 250 strängar!). 

Programmet för ram runt bilden be¬ 
står av en maskinkodsladdare i BA¬ 
SIC, som efter körning visar ramen 
samt vilka SYS-adresser som skall an¬ 
vändas. REM-satserna i slutet på prog¬ 
rammet visar var man kan ändra tec¬ 
ken och färg på delar av eller hela ra¬ 
men. 

Slutligen, deklarationsprogrammet. 
Det består av två delar, där första de¬ 
len laddar in en filhanteringsrutin. Den 
behövs när man har ÅÄÖ på sin 
VIC-20. Jag vet inte hur den eventuellt 
kan påverka när man inte har ÅÄÖ, 
fungerar det inte kan man ju bara ta 
bort den delen av programmet. Ett an¬ 
nat alternativ är att man kör program¬ 
met för ram runt bilden i stället efter¬ 
som det också ligger i denna första del 
av programmet. Detta program måste 
sparas först på bandet eftersom det 
laddar huvudprogrammet efter kör¬ 
ningen. 

Programbeskrivning: 

Skattedataprog för oexp. 
VIC-20 

K°7o = SYS-adress för hel ram 
Q°7o = SYS-adress för halv ram 
D( 12,12)= 12 månader, 12 konton 

Rad Beskrivning 
30—110 Meny 

130—210 Presenterar de olika konto¬ 
na 

220—300 Inskrivning av data samt 
kontroll av data 

310—570 Hämtar data från band 
580—730 Ger summan på inskrivna 
konton 

740—760 Kontroll av att man tryckt 
rätt 

770—800 Subrutin 

Yngve Lindblad 


Glosförhör 

VIC-20 

Från 15-årige Lennart Svanberg i Frillesås fick vi ett par 
program, där vi valde att presentera nedanstående 
glosförhörsprogram denna gång. Lennart skriver själv: 


Glosförhör bygger på en loop där du 
först matar in hur många glos-par du 
vill ha och sedan skriver in dem. Da¬ 
torn förhör dig sedan slumpvis på glo¬ 
sorna. Märk väl att den håller inte reda 
på vilka glosor som redan förhörts och 
att programmet fortsätter ända till 
dess du skriver ett pundtecken (£,) 
som svar på en glosfråga. 

När du skriver in glosorna har jag 
gjort några underlättande komman¬ 
don, som beskrivs innan inmatningen 


sker. Testa dessa kommandon första 
gångerna, så att du behärskar dem. De 
underlättar om du gjort fel! Tänk på 
att spola bandet till rätt läge när du 
sparar eller laddar och gör detta IN¬ 
NAN du trycker på J(a). 

Får du besvärligheter med inknapp- 
ningen eller behöver fråga om något, 
då får du gärna ringa mig: Tel 0340- 
509 40, fråga efter Lennart (obs! efter 
skoltid) 



COMPUTER PRESS 

Theworking VIC 64, VIC 64 Adventures, VIC64 MachineCode Master. 
Music & Sound for VIC 64, Games VICs Play, VIC 64 Subroutines 
Cookbook, 25 Original Games in Dazzling Light and Sound for VIC 64, 
Blast off With Basic Games for VIC 64, Inside the VIC 64, VIC 64 Data 
Files, Assembly Language for VIC 64, Advanced BASIC for VIC 64, 
Animation, Games 8t Sound for VIC 20. 

SPECIALISTEN PÅ DATA-BOCKER, BESTÄLL KATALOG 
BOX 471, 851 06 Sundsvall, Tel vx 060—15 04 75 

TmMWa EN VARLD AV BOCKER 


I 
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160 pR1 V,l/r', < B#CC> 

a?® 0070300 

210 1FB* C ,^:„ t 2"THEMRUN . . . NpMTB *<D> 

220 1 cTht fR utlbnbskb ^ up>"-ootOc-- : ol90 

230 pR l”Tm.-rTHEHPR^:p Rl HT"« UP> 

240 ^“THE^r^ . jbP q eflHD?" 

|| fe™" plNT .. < rU E*R> ; 1HPUTC * 

303 IF^u^-thEHRUN _ qCi 

310 1 .. I®** THENOOT 080 ^ 


305 ^»"..VtHENRUN 
310 l pr 4:.4"THENGOTO30 
320 1 S5oS<B’ tHEM400 

!«0Fofe6^5^)«5RK>;, ',"1 '• -, I 1 ’ ' . Tn .pnKES3,0 

aSSR-. V-i ,s 

350 PRI Hl" tv ,. , l » -ctEP2P0 KES3 ' M ' '" I” 

370 P RlNT " t0 5 : F0RH= 1 ®®T.py T 1 ^ HOTQ300 , t 

380 F S?TO i ; ^ :HEXTL ■ ,_ , 1 ' , 

390 p 0 R ”;^79,106 el . p- ' ' ' ’ 

400 p 3KE^ 8 doW h> 1VEL. \ 

4 05 F R VS.. I »J- , ' 

407 P r 1MT p- ,_" „ E $(.R> 

SS R&:« i*> OOTO30e 

SS PB1 

&^&* täst ™***** 

400 PRIHT^I _f t\:NEXT . rn Tn300 

J?5. F0R1*^0C . friH T#1 , •. CLOSE ; " 

Il f^V-FltÉHVpHPS- 

SÄ',W> , s j f! ' ■ ‘ HP0T * 1 ’ EI a ! MEXT 

570 «KiiThr7lHPUT*l.f> ia 

580 R 0 R *": ■ _-— 

=,90 GLO 3-E —-— 

500 GOTO300 
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—— r apP° rt - 

Directory eller 
Innehållsförteckning 
till dina kassetter med 
CMD4 

av Frenne Söderberg 


Flitiga programutvecklare med 
kassettminne kommer så små¬ 
ningom i bryderi om var nån¬ 
stans och på vilken kassett de 
mest intressanta programversio¬ 
nerna ligger inspelade. Det är 
klart att man kan föra anteck¬ 
ningar, men det ligger liksom in¬ 
te för en VIC-operatör, lite ele¬ 
gantare får det gärna vara. 

Jag brukar skaffa mig en översikt på 
skärmen genom att helt enkelt skriva 
LOAD ”ANY”, där ANY är ett pro¬ 
gramnamn som säkert inte finns på 
kassetten. Då söker datorn över hela 
kassetten och skriver ut vad den hittar 
undan för undan. 

Helst vill man förstås få förteck¬ 
ningen på papper. Det går att ordna 
med VIC-skrivaren. Man öppnar skri- 
varkanalen med OPEN4.4 och skriver 
sedan t ex PRINT#4, ”KASSETT¬ 
NAMN,DATUM”. Därefter gör man 
CMD4:LOAD ”ANY”. Det händer 
ingenting till att börja med, men av er¬ 
farenhet vet du att man skall trycka på 
PLAY på kassettspelaren i den situa¬ 
tionen, och si, då kommer PRESS 
PLAY ON TAPE ut på skrivaren och 
så småningom kommer också FOUND 
och programnamnen radvis som van¬ 
ligt. När kassetten är slut går du in och 
skriver PRINT#4, ”SLUT”, så får 
du ut det sista programnamnet också, 
fast det vill ligga och trycka i skrivar- 
bufferten. 

Om det skulle vara så att du undrar 
vad CMD4 är för en trollformel så ska 
jag försöka ge en enkel förklaring. 


Man vill gärna uppfatta datorn som 
en enhet man kan skriva till och läsa 
från, och så är det ju. Ändå har man 
med två olika funktioner att göra, IN 
till datorn och UT från datorn, och de 
går att flytta på var för sig. Normalt 
upplever du att IN- funktionen går via 
tangentbordet och UT-funktionen via 
TV- skärmen. CMD4 är helt enkelt en 
order till datorn att i fortsättningen 
skriva på kanal 4 d v s pappersskriva- 
ren istället för TV-n. Det vanliga skri- 
varkommandot PR1NT 4, ”X” där¬ 
emot skriver bara ut X-et och lämnar 
sedan tillbaka UT- funktionen till TV- 
skärmen. 


HOMO 

HACKER 


Frågan uppställer sig gärna: kan 
man mera allmänt ha skrivaren som 
utkanal och rent av låna ut TV-n till 
DALLAS kanske? Nej, tyvärr och av 
den enkla orsaken att VIC är fast ut¬ 
rustad med en screen-editor-, det är 
programmet som låter dig fara 
omkring med cursor över hela skärmen 
och ändra i dina listade programrader. 
För att bygga program med en pap- 
persskrivare måste man ha ett annat 
verktyg, en line editor som trycker ut 
en rad i taget och visar med en pil eller 
annan extra insatt symbol var du be¬ 
finner dig i texten. Sedan får du använ¬ 
da olika tangentkommandon för att 
stoppa in tecken, flytta dig osv. Jag 
vet inte om det finns eller går att göra 
en line editor till VIC. Eftersom skri¬ 
varen nu i alla fall inte hjälper dig vid 
programutveckling så har Commodo- 
res ingenjörer lagt in en skyddsåtgärd¬ 
du åker bums tillbaka till skärmen så 
fort du försöker skriva en programrad 
i direktmoden. Det tror jag man skall 
vara tacksam för. 



Exempel: 

SIBR B 


PRESS 

OK 


PLflV ON TAPE 


SERRCHING FOR ANY 
FOUND TEXTREGISTER 
UPfi 
FOUND 
FOUND 
FOUND 
FOUND 


KfiLEIDOSUM 
STAPELTIPS 
JIJNIOR-TIPS 
KATALOG MAJ 
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Bokrecensioner 


Vi har fått in flera recensioner. 
Den första är ett anonymt 
bidrag, som vi efterlyser 
författaren till: 

— Den första bok jag skaffade efter 
att ha köpt min dator var VlC-64:s an- 
vändarmanual. Den boken har visserli¬ 
gen senare visat sig vara oumbärlig, 
men nybörjarvänlig, det är den inte. 
Efter att sedan ha famlat omkring ett 
tag utan att riktigt veta hur jag skulle 
lära mig programmera, dök denna bok 
upp. Det är en bok som verkligen bör¬ 
jar från noll. Den heter ”Lär dig an¬ 
vända VIC-64”. 

Utformning och uppläggning av bo¬ 
ken är enkel och logisk. Först kör man 
lite historik kring 64:an och går däref¬ 
ter in på programmering. Tyvärr blir 
det aldrig frågan om någon riktig 
programmering, som följd av att den¬ 
na del behandlas lite väl ytligt. I stället 
får man trösta sig med att man nu har 
en god grund att bygga vidare på. Gra¬ 
fikdelen däremot, är bra, och på denna 
punkt känner jag mig nöjd. Ljudet 
slutligen, har inte tagits upp speciellt 
mycket, men det är ju faktiskt en sak 
som är mindre viktig i början. 

Sammanfattning: På det hela taget 
är det en bra bok för nybörjaren, men 
det finns säkert böcker som lär dig 
programmera bättre, även de också då 
från ”noll”. 1 mycket korta ordalag 
kan man säga att boken är ett i utan 
prick. 

NN. 


TMckS for VICS 



Ready to na programs 
Pfogranvning In madilM languagn 
Hardware projects 
InputyQutput progra m min g 


i 


SAM O. ROBERTS 


nyttiga ting såsom ordbehandling och 
styrning av reläer. Ordbehandlings¬ 
programmet kräver extra minne. Där¬ 
för är det bra att boken har ett kapital 
om hur du själv kan expandera min¬ 
net. 

Totalt finns fyra kapitel och ett ap- 
pendix. Kapital 1 innehåller listningar 
och beskrivning av 14 BASIC-pro- 
gram. Det första är ordbehandlings¬ 
programmet, som kräver 8k expan¬ 
sion. Texten lagras radvis och kan ra¬ 
deras från eller inflikas i redan skrivet 
material. Därefter kan raden länkas 
ihop så att en snygg högerjusterad text 
erhålls. Även tabulering finns. Rätt¬ 
ning av en rad sker på normalt sätt 
med cursor och INST/DEL. 



(KL4), som passar direkt i VIC:s ex¬ 
pansionsport. utgående ifrån detta kan 
du med löd- och virverktyg klara av en 
hel del av det som står i boken. 

Sista kapitlet handlar om använd¬ 
ning av USER PORT för olika ända¬ 
mål, bl a relästyrning. Styrning sker 
genom POKE till kretsarna VIA 6522 i 
V1C-20. Flera exempel ges. 

I appendix visas hur upp till 3 st joy- 
sticks kan anslutas, genom att utnyttja 
USER PORT. Här du byggt tillsatsen 
kan du pröva den på ett spel som finns 
listat. Spelet kräver 2 joy-sticks och 
kan spelas mot en annan person eller 
mot datorn. 

Lars Moeschlin 

”Lär dig använda VIC-20” av Ron 
Geere, på svenska från Studentlittera¬ 
tur, Lund, 87 sidor. 


Boken är en översättning av det engel¬ 
ska originalet ”Learning to use the 
VIC-20” och vänder sig till den seriösa 
person som vill ha en god inblick i hur 
man kan använda VIC-20. Författa¬ 
ren har valt att begränsa innehållet till 
det vänsentliga, som då i gengäld kan 
presenteras mer utförligt. Illustratio¬ 
nerna i boken är svart/vita. 

I första kapitlet presenteras VIC-20 
och dess tillbehör: kassettbandspelare, 
diskettenhet, skrivare, plotter och 
prestodigitiser. Den viktigaste kompo¬ 
nenten i VIC-20:s inre, mikroproces¬ 
sorn 6502, diskuteras liksom några ty¬ 
piska tillämpningar (ordbehandling, 


Ron Geere 


Vi ber författaren ta kontakt med re¬ 
daktionen för att vi gärna vill ha adres¬ 
sen, dit det sedvanliga arvodet skall 
skickas! 

«£ 

Lars Moeschlin har läst igenom 
och kommenterat några 
nyanlända böcker: 

Tricks for VICs, pocketupplaga 115 s, 
Hofackers förlag, Tyskland: 

Detta är en bok, som i första hand vi¬ 
sar hur du använder din VIC-20 till 


I övrigt finns program för test av re- 
aktionstid, matteövning, klocka och 
flera spel. Det sista programmet är en 
enkel maskinspråksmonitor. 

Kapital 2 handlar om programme¬ 
ring i maskinspråk. Detta sker m.h.a. 
BASIC-kommandona POKE och 
PEEK ( ). Därefter visas hur USR(X)- 
funktionen används och hur omvand¬ 
ling mellan olika talsystem sker (t ex 
från hexadecimalt till decimalt). 

Övriga kapitel är hårdvaruinriktade. 

I kapitel 3 lär du dig konstruera ett ex¬ 
perimentkort. Detta används sedan för 
minnesexpansion RAM. Även färdiga 
program i ROM kan anslutas. Här kan 


C®(n)®®@E®0 


VIC-20 
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ekonomiska beräkningar, databashan¬ 
tering). Allt är väl illustrerat med bil¬ 
der. 

Nästa kapitel visar vad man skall gö¬ 
ra efter krafttillslag. Hur laddas ett 
program från kassett? Hur används 
tangentbodet? de viktigaste funktio¬ 
nerna för skärmhanteringen redovisas 
liksom några BASIC-kommandon för 
utskrifter och beräkningar. Även någ¬ 
ra övningsuppgifter finns med här och 
i nästa kapitel. 

En introduktion till programmering 
sker i kapitel 3. Man lär sig skriva och 
ändra i ett program för att sedan köra 
detta och spara det på kassett. Några 
vanliga BASIC-kommandon som IN- 
PUT, IF — THEN, GOTO, FOR — 
TO — NEXT får man öva på. Dessu¬ 
tom ges exempel på variabler och grup¬ 
per (fält som A(10)). 

Kapitel 4 behandlar grafik. Flera 
exempel visar hur man framställer bil¬ 
der, mönster och gör animering. Sista 
exemplet visar hur man grafiskt kan 
åskådliggöra befolkningsutvecklingen 
i en stad. 

Det avslutande kapitlet handlar om 
de speciella funktionerna i VIC-20 som 
klockan, användarporten samt om hur 
BASIC-program lagras i minnet. 

Längst bak i boken är en lista på yt¬ 
terligare böcker och tidskrifter av in¬ 
tresse. Här finns även en ordlista, som 
förklarar svårare specialord inom da¬ 
taområdet. 

Lars Moechlin 



”GET MORE FROM THE VIC-20” 
av Owen Bishop, Granada, London, 
185 sidor. 

För den, som kan lite engelska och fått 
mersmak vad gäller programmering, 
grafik och ljud är detta en bra bok. 
Den är skriven både för nybörjare och 
för de med lite erfarenhet av datorer. 
Ett stort antal exempel finns med. 
Samtliga för oexpanderad eller för 3K 
expanderad VIC-20. 

I början redovisas vad VIC-20 kan 
användas till, hur dator, kassettband¬ 
spelare och TV ansluts samt hur tan¬ 
gentbordet används för att skriva och 
rita på skärmen. Därefter sker en ge¬ 
nomgång av hur man med POKE ska¬ 
par grafik och text på skärmen i valfri 
färg. Tydliga och bra figurer visar hur 
informationen lagras i datorns minne. 

Kapitel fyra koncentrerar sig på BA¬ 
SIC och går igenom operatorer, priori¬ 
tet, variabler och strängar. Med ett 
flertal exempel visas hur enklare be¬ 
räkningar och texthantering sker. Där¬ 
efter följer ett bra kapitel och ljudge- 
nerering. Alltmedan man läser och 
övar lär man sig använda de olika 
BASIC-kommandona (FOR — TO , 
READ, INPUT, RESTORE osv). Be¬ 
slutsfattande med IF — THEN och 
ON — GOTO avhandlas i kapitel 6. 

Sedan följer mer om grafik, an¬ 
vändning av CHR$( ) och POKE. Eg¬ 
na tecken och figurer genereras med 
hög upplösning. Två hjälpprogram 


Vinnare 

i programmeringstävling 

Prisutdelning i programmeringstäv- 
lingen på VIC-20, som anordnats av 
Wettergrens Bokhandel i Göteborg, 
skedde på Hemelektronik-mässan 
10—13 november 1983. Här ser vi de 
tre pristagarna: Lan Stefan Elfast, 
2:an Jan Widegren, 3:an Svante Pers¬ 
son tillsammans med Wettergrens Bör¬ 
je Gustafsson efter prisutdelningen. 

Wettergrens har börjat sälja både 
litteratur och datorer med tillbehör — 
en utveckling som allt fler bokhandlare 
kan se fram emot. Dessutom har Wet¬ 
tergrens själva satsat på att uteckla en 
egen teledatabas för bokbeställningar. 
Genom ett' 300-modem kan du, som 
själv har ett modem, på telefon 031- 
11 21 34 göra dina inköp av datorlitte¬ 
ratur och tillbehör. A F-n. 



OA/EN.BISHOP • 


finns med. Dels ett för högupplös- 
ningsmod och dels ett för flerfärgs- 
mod, där man kan använda fyra olika 
färger i varje tecken (figur). 

Kapitel 8 handlar om sortering av tal 
och strängar (t ex namnlista). Detta 
kräver användning av MIDS, STRS 
etc. I nästa kapitel presenteras ett av¬ 
ancerat ljudgenereringsprogram för att 
få specialeffekter som samtidigt varie¬ 
rar i volym, frekvens och stämma i del¬ 
sekvenser med valbar varaktighet. 

Funktionstangenterna används i ka¬ 
pitel 10, som även handlar om funktio¬ 
nerna SQR, SIN, COS etc. Dessutom 
behandlas hur du gör egna funktioner. 
Nästa kapitel är mycket bra och visar 
hur rörliga figurer skapas. I flerfärgs- 
mod används ett specialknep så att en 
figur rör sig utan att något tecken änd¬ 
ras. Kollisionsdetektering behandlas 
också och nu bör man vara mogen för 
att göra egna spel m m. 

Sista kapitlet behandlar hur man er¬ 
håller ett snabbt BASIC-program och 
spar minne. Ytterligare tips ges, så att 
inte programmet går snett. I ett antal 
tabeller i slutet redovisas skärmkoder 
och färgkoder samt hur olika toner er¬ 
hålls. 

Lars Moeschlin 

★ 


32 

















FINAL 


Cup Final är ett realistiskt fotbollsspel 
med bra grafik för en eller två spelare. 
Du kan skjuta, passa, nicka, hoppa, 
precis som i en vanlig fotbollsmatch. 

1 Cup final spelar du en helt vanlig 
fotbollsmatch med två halvlekar. Var¬ 
je halvlek varar i 200 sekunder. Mat¬ 
chen avslutas med en prisutdelning till 
det vinnande laget, till den entusiastis¬ 
ka publikens glädje. På anslagstavlan 
visas tiden och hur många mål som la¬ 
gen har gjort. Vill ni vara två när spe¬ 


lar så behöver ni två joystickar annars 
räcker en. Om du spelar mot datorn 
finns nio olika svårighetsgrader. 

När du har slagit på din V1C-64 och 
vridit upp volymen installerar du 
joysticken(-arna) på höger sida om da¬ 
torn. Vid spel mot datorn sätter du in 
joysticken i användarport två. 1 annat 
fall börjar den som har sin joystick i 
port två. Vid ändring av färg på spelar¬ 
na och svårighetsgrad används funk- 
tionstangenterna. Fl ändrar färg på 


vänster spelare, F3 på höger spelare 
och med F7 får ni svart-vita tröjor. 
Med F5 ändrar du svårighetsgraden 
ifall du spelar ensam. Sedan är det ba¬ 
ra att trycka ned avfyrningsknappen 
för att börja. 

Båda lagen har en kapten. Han har 
en annan nyans på tröjan. Ditt lags 
kapten kontrollerar du med din joy¬ 
stick. Kaptenen blir den spelare som 
befinner sig närmast bollen. Du kan 
manövrera din kapten åt åtta olika håll 
och sparka bollen i lika många rikt¬ 
ningar genom att trycka ned avfyr¬ 
ningsknappen. När bollen kommer i 
närheten av din målvakt, och motstån¬ 
daren har den, kan du få din målvakt 
att slänga sig genom att trycka ned av¬ 
fyrningsknappen. Du behöver inte 
oroa dig åt vilket håll målvakten släng¬ 
er sig. Han slänger sig i åt det håll bol¬ 
len går. Så om målvakten bara slänger 
sig i rätt tidpunkt tar han bollen, men 
han släpper alltid returer. Vid inkast, 
hörna och inspark placeras du din lag¬ 
kapten åt det håll det skall kastas eller 
skjutas och trycker ned avfyrnings¬ 
knappen. 

Cup Finals grafik är skickligt gjord. 
Spelarna rör sig fint och är snygga. De 
har tydliga och bra konturer. Man har 
en bra överblick över spelplanen fastän 
bara en tredjedel av planen visas i ta¬ 
get. Det finns även en läktare, med en 
entusiastisk och skötsam publik i, med 
på bildskärmen. 

När spelet sätts igång börjar den 
översta spelaren som kapten, den un¬ 
dersta spelaren springer rakt fram. Det 
är en fördel som man kan använda om 
man tränar lite. För om du tar bollen 
direkt kan du lägga upp bollen på hans 
huvud. Då kommer han, som du nu 
sköter, att springa nästan ända in i 
straffområdet. När du kommer fram 
till målet springer du och försöker att 
lägga mål vid ena stolpen. Om målvak¬ 
ten då slänger sig går du bara runt och 
lägger in bollen där målvakten förut 
stod, för målvakten tar sin lilla tid på 
sig att komma upp igen. 

Cup final är ett av Handics bästa, 
om inte det bästa, spel de har gjort. 
Det slår ut alla andra fotbollsspel som 
nu finns på hemdatormarknaden. Man 
tröttnar aldrig på Cup final eftersom 
det bygger på ens egna kunskaper. 
Det går inte heller att bli fullärd på det. 
Kort sagt det bästa spel vi har spelat. 

TEAMWORK 



























Finn 

felen 

med 

TRACE 


Fel i ett program kan lätt erhållas av 



Har du fått fel i något program någon gång? Tycker du felsökning 


flera orsaker, t ex tankefel eller skriv¬ 
fel. Att hitta felen är värre. Har du 
brutit mot BASIC-reglerna så sker en 
felutskrift vid körningen. Värre är det 
om du t ex skriver B = i stället för A = 
i någon sats. Detta kan BASIC aldrig 
upptäcka. 

För att kontrollera att ett program 
är riktigt måste ofta flera testkörning¬ 
ar med känt facit ske. Stämmer det ej 
så gäller det att hitta felet så snabbt 
som möjligt. Felsökning kan ske på 
många sätt t ex genom att lusläsa pro¬ 
grammet, lägga in stopp, lägga in test¬ 
utskrifter eller med en TRACE-rutin. 
Här presenteras en bra TRACE-rutin 
som ursprungligen skrevs för PET- da¬ 
torerna av Nick Hampshire och som 
modifierats för användning på VIC- 
datorerna. 

Denna rutin använder CHARGET- 
rutinen på sidan noll i minnet för att 
skriva ut den sats som skall utföras in¬ 
nan BASIC-en får den. Radnummer 
och satser skrivs ut överst på skärmen 
alltmedan programmet genomlöps 
långsamt. Programmet kan på VIC-20 
avbrytas med STOP och ånyo startas 
med CONTINUE. Alternativt stoppas 
programmet genom att man trycker 
ned en av skifttangenterna (kan låsas i 
nedtryckt läge). 

En intressant egenskap med denna 
TRACE-rutin är att det värde eller tec¬ 
ken som läses av en READ-sats visas. 
Man kan också se om en IF-THEN- 


är tråkigt? Vill du hellre ägna tiden åt att köra programmet eller 
skriva nya program? I så fall är detta något för dig. 


5 REM#*#TRACE FOR C-64*#* 

10 E=55 : D=2 : Q=0 

1 00 DRTA-342,162,5■189,182,227,149,115,202,16,248 

1 10 DATA169,239,133,131,96,173,-342,133,55,173,-341 

120 DATA 133,56,169,255,133,45,180,0,162,3,134,46 

130 DATA 162,3,32, —271, 308 , 249,202,308,248, 32,—2 r1 

140 DATA32,-271,76,142,166,162,5,189,-6,149,115,203 

150 DATfl16■248,169,243,133,131,96,330,45,308,2,330 

160 DATA46,177,45,96,330,133,208,3,230,123,96,32 

17 0 DAT fl 118,0,8, 7 2, 133,215, 138, . 2, 152, r 2,166,58, 165 

180 DRTA57,197,251,208,4,228,252,240,106,133,251 

190 IiflTfl133,38,134,252,134,39,169,5,133,110,202,208,253 

200 DATA136,208,250,234,234,198,110,208,244 

210 DATA232,160,80,169,160,153,255,3,138,153,255,215 

220 DAT A136,208,244,132,254,132,40,132,41,132,42 

230 DATA120,248,160,15,6,38,38,39,162,253,181,43 

240 DATA117,43,149,43,232,48,247,136,16,238,216 

250 DA T A88,162,2,169,48,133,106,134,105,181,40, 72 

260 DATA74,74,74,74,32,—44,104 *41,15,32,—44,166 

270 DATA105,202,16,233,32,-38,32,-38,165•253,197 

280 DATA122,240,55,165,215,208,4,133,251,240,47 

290 DATA16,42,201,255,208,8,169,105,32,-30,24,144 

300 DATA33,41,127,170,160,0,185,157,160,48,3,200 

310 DATA208,248,200,202,16,244,185,157 160,48, 6 

320 DATA32,-32,200,208,245,41,127,32,-32,165,122 

330 DATA133,253,104,168,104,170,104,40,96,168,173 

340 DAT A18,208,41,255,208,249,152,96,9,48,197, 106 

350 BATA208,4,169,32,208,2,198,106,41,63,9,128 

360 DATA132,109,32,-54,164,254,153,0,4,192,195 

370 DATA208,2,160•7,200,132,254,164,109,96,76 

380 DATA-255,32,-262 

400 32=53000 : S1»S2+D-344 

410 F0RJ=S1T0S2-1 

420 READX : Q=Q+X+1 IFX>0ORX=0THEN450 
430 V=X+S2■X=INT <V/256 > ■ Z=V-X*256 
446 PQKEJ,Z J=J+1 
450 POKEJ,X 

460 NEXTJ : IFQOS7764THENPRI NT "DATA-FEL Q=", Q ; END 
500 PRINT"MINITIERA M SVSC",31+17">" 

510 PRINT"HOPPLA IN M SVSC";81+56">" 

520 PRI NT "»KOPPLA BORT M SVSC "81+2" >" 

530 PRINT"MJUSTERA HASTIGHET I1EDM P0KE";S1+121-D",X" 

600 EHD 
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Tack för mig! 


sats är falsk, ty då visas inte fortsätt¬ 
ningen av THEN-delen på satsen. 
Finns det något fel som bryter mot 
BASIC-reglerna, så visas raden fram 
till felet, varefter avbrott och felut¬ 
skrift sker. 

Här följer instruktioner för hur 
TRACE-rutinen skall användas: 

Knappa först in rutinen och lagra 
den. 

Skriv sedan RUN och tryck på RE- 
TURN, så visas på skärmen hur 
TRACE-rutinen initieras, kopplas in 
och ur samt hur hastigheten ändras. 
Anteckna dessa värden och skriv NEW 
för att radera programmet. 

Initiera sedan TRACE-rutinen med 
det antecknade SYS-kommandot och 
skriv på nytt NEW. 

Nu är det dags att läsa in det egna 
programmet för felsökning. När detta 
är gjort, koppla in TRACE med det 
antecknade SYS-kommandot och star¬ 
ta med RUN.RETURN. Då visas varje 
rad överst på skärmen med några se¬ 
kunders mellanrum. Om skift¬ 
tangenten nedtrycks så avbryts pro¬ 
grammet till dess tangenten släpps. 
När programexekveringen slutat kan 
TRACE-rutinen kopplas ur eller in 
med respektive SYS-kommando. 

Hastigheten kan ändras med ett 
POKE-kommando. Normalt värde är. 
5. Lägre värde ger snabbare exekvering 
och större värde långsammare. 

Till sist några tips. Använd helst ej 
de översta tre raderna (2 på V1C-64) 
för utskrift av vikt eftersom dessa störs 
av TRACE-utskriften. Likaledes är det 
olämpligt att scrolla (rulla upp) skär¬ 
men genom en mängd utskrifter efter 
varandra, eftersom då försvinner 
TRACE-utskriften. 

TRACE-rutinen använder 351 bytes 
i slutet på minnet. För t ex oexpande¬ 
rad VIC-20 återstår då drygt 3200 by¬ 
tes till eget program. Om skift¬ 
tangenten används för annat ändamål i 
ditt program kan funktionen i 
TRACE-rutinen tas bort genom att by¬ 
ta ut de sex första talen i rad 90 mot 
234. Observera att då skrivs DATA¬ 
FEL ut när rutinen lagras in (vid 
RUN), men detta betyder inget. 

Lars Moeschlin 


Och tack alla ni flitiga skribenter och 
programmerare, som med Era bidrag 
gjort det lättare än väntat att så små¬ 
ningom prestera en hyfsad hobbytid¬ 
ning i VIC-rapport. 

Jag gör detta första nummer 1984 
som mitt sista nummer av tidningen. 
Det är fr o m den 1/2 1984 ingen idé 
att ringa de gamla telefonnumren och 
prata VIC-rapport längre. Av faktaru¬ 
tan framme i tidningen framgår vart 
ni kan vända er för framtiden. Era ad¬ 
resser och brev har överlämnats till nye 
vd:n, Tomas Wredler, och han är 
också den som får svara på frågor om 
tidningen. 


Mitt stora intresse, COMAL- 
KLUBBEN I SVERIGE, och språket 
COMAL kommer att kräva allt större 
del av min fritid framöver — trots all 
hjälp så går det ju åt en hel del tid att 
göra en månads-tidning! Lycka till i 
fortsättningen, önskar jag också To¬ 
mas och dem han utser att hjälpa till 
att producera VIC-rapport. 

Med hjärtligt tack för alla vänliga 
ord om tidningens utveckling under 
min tid som redaktör hoppas jag att 
ingen mer skall behöva skriva ”VICs 
tidning är bedrövlig!” 

Åke Fredriksson 


5 REM***TRACE FOR VIC-20*** 

10 E=55 : B=2 : Q*0 

3Ö DA Ih 1 7 3, 141,2, 234,208.. 250,76.. -207 

1 Oo DAT A-35 i, 1 62 .. 5,183.135,227,143,115, 202 ,1 6, 24ö 

110 DAT A1 63 , 233,133,131,36,173,-242,133,55,173,-341 

120 DATA1 33 , 56 , 163,255,133,45,160,0, 1 62,3,i34,46 

130 DATA 162,3,32,-271,208,243,202,208,248,32,-271 

1 4ö DA T A32,-271,76,142,138,162,5,183,-b,143,116,202 

150 DAT Al6, 248,1 69, 242 ,133,131, 36 ,230,45,208, 2, 230 

1 60 DATA46,1 77 ,45 , 36, 230,122,208, 2 ,230,123,96,32 

170 DATA 118 ,0,8 ,72 ,1 33,215,138,72,152,72,166,58,165 

180 DATA57,137,251,208,4,228,252,240,106,133,251 

130 DA TA 1 33 , 38 ,134, 252,134,33,169,5,133,110,202,208,253 

200 DATA1 36 ,208,250,198,110,208 , 246,76,-351 

2 1 O DATA1 60 ,66,163,160 ,153,255,23,138,153,255,143 

220 DATA1 36,208 ,244, 132,254,132,40,132,41,132 42 

230 DATA 120,248, 160 , 1 5 ,6 ,38 , 38,39,162,253,181,43 

240 DATAI 1 7,43,143,43,232,48,247,136,16»238,216 

25Ö DA 1 A83 , 1 62 ,2,163,48,183,106,134,105,181,40,r 2 

260 DA1 A t'' 4, r 4, r* 4 , i 4, 32, — 44 , 104 ,41,15, 32, —44, 166 

270 DAT A105,202 ,16,233,32,-38,32,-38,165,253,197 

280 DA TA 122, 240, 55 , 165,215,208, 4, 133,251,240,4 r 

230 DATA 16,42,20 1 ,255 , 208,8,163,105,32,-30,24,144 

300 DATA33,41,127, 170,160,0,185,157,132,48,3,200 

310 BATA208, 248,200,202, 16,244,185,157,192,48,6 

320 DATA32,-32 ,200, 208,245,41,127,32,-32 , 165,122 

330 DATA1 33,253 , 1 94, 168,104,170, 104, 40,96,168 , 173 

340 DATA4,144,41, 127,208,249,152,96,9,48,197,106 

350 DAT A208,4,1 69,32 , 208,2,198,106,41,63,9, 128 

360 DAT A1 32 , 103,32,-54,164,254,153,9,30,192,195 

370 BATA208,2, 160,7,200, 132,254,164,109,96,76 

380 DATA-255,32,-262 

400 S2=PEEK <E)+256*PEEK <E+1> SI=S2+D-353 
410 F0RJ=S1TQS2-1 

420 READX: Q=Q+X+1 IFX>0ORX=0THEN450 
430 V=X+S2:X= I NT C V/256 >•Z=V-X*256 
449 POKEJ ,Z J=J+1 
458 POKEJ,X 

460 NEXTJ ■ IFQO37501THENPR IHT " DATA-FEL Q= " , Q END 
500 PR I NT"MINITIERA: SYS < " , 31+26“)" 

519 PRINT"»KOPPLA IN SVSC81+65")" 

520 PRIHT"»KOPPLA UR SVSC",SI+11">" 

530 PRI NT"»JUSTERA HASTIGHET MED» POKE",S1+130-D" , X" 

600 END 
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Vad skulle du tycka om din dator körde två program samtidigt? 
Egentligen går det inte, eftersom 6502:an är en sekvensiell mikro¬ 
processor. Det betyder att den endast kan utföra en instruktion i ta¬ 
get. Men detta kan lösas med den programmeringsteknik vi skall lä¬ 
ra ut i denna artikel. Tekniken kallas interrupt-programmering och 
bygger på att maskinkodsrutiner anropas 60 ggr/sek av det s k in- 
terruptet. 


Programmera med ”interrupt” 


Interrupt vad är det? Jo, 60 gånger i 
sekunden (kan ändras) avbryts proces¬ 
sorn i sitt vanliga arbete, t ex tolkning 
av möjligt program. Då interrupt, eller 
på svenska ”avbrott” sker, uppdateras 
den s k Jiffy-klockan, I/O-rutiner 
sköts om och tangentbordet läses av. 
Sedan dessa saker uträttats, hoppar 
VIC tillbaka och fortsätter med det 
den höll på med före avbrottet. 

Vart den skall hoppa framgår av ad¬ 
resserna 788 och 789 (interruptvek- 
torn). Normalvärdet på dessa adresser 
är 191,234 = SEABF. Om vi ändrar 
värdena i dessa till exempelvis 0,25 så 
kommer datorn att hoppa till 
7128 = $1C00 när den får interrupt. 
Dessa värden får vi fram genom 
0 +(28 * 256) = 7168. 

Men innan vi går in och ändrar i 


vektorn så måste vi säga åt VIC att inte 
göra några interrupt: 

10 POKE37166,128:POKE788,0:PO- 
KE789,28:POKE37166,192 

VARNING! STÄLL INTE VEK¬ 
TORN OM INGEN MASKINKODS- 
RUTIN LIGGER DÄR, DETTA KAN 
ORSAKA EN KRASCH OCH DU 
MÅSTE STÄNGA AV OCH PÅ DIN 
VIC. 

När nu VIC kommit till 7168 exe¬ 
kverar den först rutinen du lagt dit och 
hoppar sedan till den vanliga inter- 
ruptrutinen som ligger på 60095 = 
SEABF. Dit hoppar du genom att pla¬ 
cera JMP SEABF i slutet av rutinen. 

Vi kommer nu att åskådliggöra den¬ 
na teknik med 2 program. Det första 
programmet är en melodi som spelas 


oavbrutet ända till dess du ändrar till¬ 
baka vektorvärdena till de normala. 
Detta kan ske genom att trycka ned 
”RUN/STOP-RESTORE”. Detta 
program kan användas för att t ex sät¬ 
ta ljud till andra program. 

Program 2 är ett program som tutar 
till varje gång du trycker ner en tan¬ 
gent. Kan kanske vara bra att ha när 
du programmerar? 

Denna programmeringsteknik kan 
även användas till VIC-64, det är bara 
adressen $EABF som måste ändras till 
$EA31. 

Som du ser i programexemplen så 
har detta programmeringssätt många 
fler ändamål än vad vi presenterat här. 
Vi hoppas, att vi förklarat detta så väl 
att även du skall kunna använda dem i 
dina program. 



PROGRAMMERAT 

INTERRUPT 
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PROGRAM 2 

1 REM 

2 REM THOMRS WERNERSSON 

3 REM 

4 REM 

5 REM 

6 REM TRNGENT-TUT 

7 REM 

8 REM 

10 FORI=7168TO7203 

11 RERDR 

12 POKEI.R 

13 NEXTI 

14 REM 

15 REM LÄS IN KODEN OCH PLRCERR I 7168- 

16 REM 

17 REM 

20 POKE 37166.-128: POKE 789,28=POKE 788,0 : POKE 37166.-132 

30 REM STOPPA INTERRUPTEN 

31 REM ANDRR VECTOR TILL 7168 

32 REM SÄTT IGÅNG INTERRUPTEN 

61 REM 

62 REM KODEN 

63 REM 

70 DRTR169,0,141,12.144,165,197,201,64,208,5,133,0,76,191,234,197,0,240,249,133, 
0, 169 

30 DRTR15,141,14,144,169,220,141,12,144,76,191,234,0 


PROGRAM 1 

1 POKE1,0 : P0KE2,0 

2 REM 

3 REM SPELANDE MELODI 

4 REM 
3 REM 

6 REM THOMRS WERNERSSON 

7 REM 
3 REM 

10 F0RI=7163T07243 

11 RERDR 

12 POKEI,R 

13 NEXT 

14 REM 

13 REM LÄS IN KODEN OCH PLRCERR I 7163 - 

16 REM 

17 REM 

20 P0KE37166,123 : P0KE789,23:P0KE733,0:P0KE37166,192 

21 END 

22 REM 

23 REM 

24 REM STÄNG RV INTERRUPTEN 

25 REM STÄLL PEKARE TILL 7168 

26 REM SÄTT IGÅNG INTERRUPTEN 

70 DRTR169,15,141,14,144,165,2,240,5,193,2,76,191,234,164,1,185,45,28,240,13,141 
,12,144 

30 DRTR135,46,28,133,2,230,1,230,1,76,191,234,169,0,133,1,133,2,76,191,234 

90 DRTH217,24,213,24,223,24,227,12,234,12,230,24,227,12,234,12,230,24,223,24-227 

,24,213 

100 DRTR36,127,16,0,0,0,0,0 
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Glosträningsprogram 

(för VIC-64 med 1541 diskdrive, av Per Ljungberg) 

Vi fick från Norrköping ett glosträningsprogram, som vi hoppas 
våra läsare har glädje av, i varje fall de, som har tillgång till disk¬ 
drive. Låt oss dyka rätt in i Pers beskrivning: 


Programmet är avsett för VIC- 64 med 
diskdrive 1541 (eller 1540). Har du ing¬ 
en diskstation kan du naturligtvis an¬ 
vända programmet ändå och strunta i 
filhanteringen. Modifieringen för 
VIC-20 borde vara lätt eftersom inga 
specialkommandon är använda. 

Som du säkert märkt så kan man in¬ 
te komplettera en sekvensiell fil när 


den en gång har stängts. Men ändå är 
det ju så, att det väldigt ofta är nöd¬ 
vändigt att ”fylla på” en redan exi¬ 
sterande fil. 

Programmet här visar hur enkelt det 
i själva verket är att ordna komplette¬ 
ring av sekvensiell fil (förutsätter 
att hela filen får plats i RAM- minnet!) 

Programmet erbjuder följande: 


Inmatning av glosor samt rättning 
Förhör 

Skrivning, läsning och komplettering 
av sekvensiella filer 
Tips för den avancerade 
Ändra programmet så att fil 1 
kompletteras med data från fil 2. Tänk 
på DIMensioneringen och antal poster 
i filen. Lars Ljungberg 


100 

110 

120 

130 

140 

150 

160 

170 

175 

180 

130 

185 

200 

210 

220 

230 

248 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


REM * GLOSFORHGR * 

P0KE53281,9 : POKE53280,11•P0KE646,7 
PRIHTCHR$ 1147> 

PRINT" 1 — SLUTA" 

PRINT" 2 — MRTft IN GLOSOR" 

FRINT" 3 — RATTA" 

PRINT" 4 — FORHOR" 

PRINT" 5 — SKRIV TILL FlLE" 

PRINT" 6 — LAS FRRN FlLE" 

PRINT■INPUT 'INPUT 1,2,3,4,5,6",£ 

ONE GOTO 195,200,280,390■1000,1000 
ENE 

REM * INMATNING * 

PRINTCHR$ <147 > ; CLP 
INPUT"ANTAL GLOSOR",A 
DIM Ef>:A),S$<A) 

PRINT"ENGELSKA,SVENSKA" 

FORN=l TO H 
INPUTE$<N>,S$<N> 

NEXT 

REM * RATTA * 

FÖRN=1 TO A 
PRINTN,E$<N>,S$<N> 

NEXT 

INPUT"NUMMER SOM SKR ANDRAS <0>";K 

IFK=Ö GOTO120 

PRINTE$<K>,S$<K> 

PRINT"SKA ANDRAS TILL ..." 

PRINT"ENGELSKA,SVENSKA" 

I NPUTE$ < K. >, S$ < K. > 

GOTO 280 
REM * FORHOR * 

PRINT"FORHOR"=PR INT:0=0:U=0 
PRINT"TRVCK 'o' FOR ATT SLUTA" : PRINT 
PRINT = PRINT"<BLANKSTEG>" 

GETQf■IFQ$=""GOTO430 
G=G+1 : PR I NTCHRf 'i 147 > 

N=INT(< A)*RND <1> >+i 
PRINTS$<N>; 

INFUTFt- 

IFF$OE$<NT GOTO510 


490 U=U+1 


500 GOT0440 

510 IFF$="o"THENPRINT"DU KLARADE";U;"AV",G-l:FORD=1TO2O00 NEXT : GOTO120 
520 PRINTS$<N>" = -GOTO420 

999 : 

1000 REM m SE6UENTIAL Fl LE M 
1010 PRINTCHR$ <147) 
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1020 PR I HT " DATA HRNDLI HG ROUTI HE " : PR I HT PR I NT 

1025 IFB=6 THEN CLR : REM VID INLÄSNING MÅSTE GAMMAL GLOSLISTA TAS BORT 
1030 INPUT"FILE NAME" , Ff 
1040 PRINT:F$="00 ="+F$ 

1050 IFB=5 GOTO11O0 
1060 GOSUB1300 
1070 GOSUB1200 
1080 GOTO 120 

1100 PRINT"NV FlLE ELLER KOMPLETTERING <NXK>" 

1110 GETQflF Qf="K" GOTO1150 
1120 IFQfO"N" GOT01110 

1140 GOSUB1500 : FRINT : PRINT"INLASN I NG KLAR"•GOSUB1200:GOTO120 
1150 GOSUB1700•PRINT : PRINT"KGMPLE1 TERING KLAR" : GOSUB1200 
1160 GOTO 120 

1200 REM m SUBROUTINE BLANKSTEG ** 

1210 PRINT:PRINT "3 <BLANKSTEG> *" 

1220 GETQf:IFQ$="" GOTO1220 
1230 RETURN 
1240 : 

1300 REM m SUBROUTI NE LAS FRAN FlLE ** 

1310 0PEN15,8,15 

1320 0PEN5,8,5,Ff+“,S,R" 

1340 INPUT#5, A : PRINTA 
1350 DIM E$<A:>,S$<R> 

1360 F0RH=1 TO A 
137@ IHPUT#5,Ef<H) ,8$(N ) 

1 380 PR INTN, " "; Ef<N>, Sf <N) 

1330 NEXT 

1 400 CL0SE5,3,5:CLOSE15,8, 1 5 
1410 REM *** SLUT **** 

1420 RETURN 
1430 : 

1500 REM ** SUBROUT INE SKRIV TILL FlLE 
1510 0PEN15,3,15 
1520 0PEN5,8,5,F$+",S ,W " 

1530 PRINT#5,A 
1540 F0RN=1 TO A 

1 550 PRI NT#5,Ef CH) ; PRI NT#5,SfCN > 

1560 NEXT 

1 570 CL0SE5 ..8,5: CLOSE 15,8,15 
1580 REM ***■ SLUT ***■ 

1530 RETURN 
1600 : 

1700 REM m SUBROUT INE KOMP FlLE ** 

1710 0PEN15,8, 15 
1720 0PEN5 ,8,5,Ff + ",S ,R" 

1730 I NPIJT #5, A1 

1735 DIM Elf<A1).• Slf(Al ) 

1740 F0RN=1 TO Al 

175G INPUT#5 ,E 1f<N> ,S 1f < N > 

1760 NEXT 
1770 CL0SE5, 8, 5 
1780 : 

1730 0PEN5, 8,5,F$+",S, W" 

1800 A2=A 1+A : PRINT#5 , A2 
1810 F0RN=1 TO Al 

1820 PRINT#5,Elf<N) :PRINT#5,Slf<N> 

1830 NEXT 
1840 FGRN=1 TO A 

1850 PR I NT#5 , Ef<N ): PR I NT#5 ,Sft N > 

1860 NEXT 

1870 CLUSE5, 8 , 5: CLOSE15,8,15 
1880 REM *** SLUT *** 

1830 RETURN 
1900 : 

READV. 


READY . 
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JELLY MONSTERS VIC-1905 PANIC 64 (Interceptor) 


1 . 

1 631 860 

Pelle Gustavsson, SUNDBYBERG 

1 . 

4 200 

Charlie Johansson, HANDEN 

2. 

763 650 

Peter Johansson, LYCKEBY 

2. 

2 100 

Dr Darnio 

3. 

705 980 

Anders Hellman, NOL 

3. 

— 

— 



RAT RACE VIC-1909 


GRIDRUNNER (LLamasoft) 

1 . 

83 312 

Per Bergström, VÄSTERVIK 

1 . 

58 610 

Stuffe 

2. 

82 180 

Magnus Eriksson, LJUNGBY 

2. 

— 

— 

3. 

70 200 

Leif Lindström, ÖREBRO 

3. 

— 

— 


SUPERLANDER VIC-1907 



JUMPMAN (EPYX) 

1 . 

88 000 

Fredrik Gustafzon, GNESTA 

1 . 

27 400 

J. Aspengren, LINDOME 

2. 

86 000 

Thomas Johansson, YSTAD 

2. 

15 800 

Joakim Ramsberg, MÖLNDAL 

3. 

71 380 

Kjell Andersson, TÄBY 

3. 

13 500 

Lars-Inge Öberg, HISINGS BACKA 


SPELREKORD 

Härmed startar en uttagning till framtida Com- 
modore Spelcup, som planeras att äga rum i 
slutet på detta år. Vi kommer att ha tävlingar 
med de populäraste spelen dvs skicka in dina 
spelrekord från alla olika spel du har eller har 
tillgång till. 

Vänliga hälsningar 
SPELREDAKTÖRN 


Datum 

Namn. 

Adress. 

Postnr, Postadress. 

Spel. 

Erhållna poäng. 

Intygas av målsman eller annan myndig person 
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Den flitige skribenten Lars 
Moeschlin fick ideer i 
anledning av testprogrammet 
på VIC-20, som presenterades i 
nr4-83 under rubriken 
”Textbehandling U P A”. Lars 
skriver själv: 

Texthantering 

I ett tidigare nummer av VIC-rapport presenterades hur man kan 
skriva ut text med printer genom att lagra texten i BASIC-rader 
och sen lista det s k BASIC-programmet. Detta är en hyfsad 
metod på en oexpanderad VIC-20 eftersom 
ordbehandlingsprogram kräver mycket minnesutrymme. En 
nackdel är att radnumret finns med i utskriften. Radnumret bör 
tagas bort så att det är möjligt att skriva brev, meddelanden etc. 
Ytterligare ett önskemål är att kunna programmera datorn så att 
flera meddelanden skrivs ut medan du gör något annat. 

Dessutom är det önskvärt att kunna göra listningen så långsam 
att det går att kontrolläsa texten i samma takt som den skrivs ut. 


Här presenteras ett minnessnålt pro¬ 
gram (i maskinkod) som uppfyller 
dessa önskemål. Dessutom är BASIC- 
rutinen som krävs för att ladda koden 
kort. När du laddar programmet och 
tryckt på NEW finns 3300 byte kvar 
för lagring av ungefär en A4-sida med 
text. Texten redigeras på samma sätt 
som du rättar ett BASIC-program. 
Samma rad kan upprepas flera gånger 
eller förflyttas genom att byta radnum¬ 
mer. Ny text kan infogas genom val av 
lämpligt radnummer. 

De som har tillgång till Programme- 
ringshjälpkassetten kan använda 
LIST. AUTO, DELETE, FIND, 
CHANGE, RENUMBER för att un¬ 
derlätta texthanteringen. 

Nu något om programmering och 
körning av programmet. 

1 Skriv in BASIC-programmet 

2 Lagra det på band eller diskett 

3 Starta det med RUN. Blir det något 
fel så rätta och lagra igen. Återställ 
minnet med POKE 56,30:CLR före 
nytt startförsök. 

4 Initiera maskinkodsrutinen med 
SYS 7436 (eller annat vid RUN visat 
värde). 

5 Om du önskar maximalt minne för 
test så radera BASIC-programmet 
med NEW. 


6 Skriv in text och redigera tills du är 
nöjd (använd ej frågetecken). 

7 Om så önskas lagras texten som ett 
vanligt BASIC-program på band el¬ 
ler disk. 

8 Skriv ut texten på printer genom att 
använda @ (snabel-a) i stället för 
LIST. Se mer om detta nedan. 

9 Om du senare skall läsa in lagrad 
text där BASIC-programmet rade¬ 
rats med NEW, måste först det lag¬ 
rade BASIC-programmet för ladd- 
nig av maskinkod läsas in och köras. 
Gör därefter NEW och ladda Text- 
programmet. 

Om NEW ej användes måste texten 
skrivas in med radnummer större än 
90, t ex 100, 110, 120, etc. 1 detta fall 
är det enklare att få fram tidigare lag¬ 
rad text. Detta görs med LOAD, RUN 
och SYS varefter redigering och ut¬ 
skrift kan ske. 

Normalt vid utskrift på printer an¬ 
vänds följande kommandon: 

OPEN 4,4:CMD 4: @ :CLOSE 4 

Nackdelen med detta är att och 
READY kommer att finnas med i ut¬ 
skriften. Detta undvikes t ex genom att 
lägga in ett antal PRINT-satser enligt. 


OPEN 4,4:CMD 4: ? : ? : 

? : ? :-: ? : CLOSE 4. 

Den mest eleganta metoden är att 
skriva en liten BASIC-snutt: 

1 OPEN 4,4 : CMD 4 

3 FOR I = 1 TO 9 : PRINT : NEXT 

4 @ : For I = 1 TO 9 : PRINT : NEXT 
6CLOSE4 

Om flera kopior önskas lägg till föl¬ 
jande rader: 

2 FOR I = 1 TO 5 

5 NEXT 

Då får du fem kopior. OBS antalet 
PRINT måste väljas så att sidbyte sker 
korrekt. 

Önskas ett antal blanka rader mitt i 
en text, så kan detta erhållas genom att 
efter radnummer trycka på RVS ON 
och därefter på SHIFT M ett antal 
gånger. Placera sedan ett citationstec¬ 
ken (”) efter radnumret med hjälp av 
INST. 

Skillnaden mellan LIST- och @ - 
kommando är att efter LIST avbryts 
programmet, men ej vid -listning. 
Om så önskas kan en eller flera rader 
skrivas ut genom t ex: 

@ 150 
@ 120—170 
@ 100 — 

@—590 

Valbara listningar efter varandra 
kan ske såsom: 

@120—140: @ 100 : @ 200—300 

Önskas ett motsvarande kommando 
för listning av BASIC-rader med rad¬ 
nummer? Detta erhålls om du stryker 
rad 40 i det här givna BASIC- 
programmet. 

För att möjliggöra läsning av texten 
rad för rad är en avbrottsfunktion in¬ 
lagd i både listning med och utan rad¬ 
nummer. Listningen upphör om skift¬ 
tangenten trycks ned eller låses. Denna 
funktion är bra även vid kontrolläs¬ 
ning av program. Observera att vid 
listning med LIST sker avbrottet på 
godtycklig plats i raden. Vid @ - 
listning sker alltid avbrott korrekt, vil¬ 
ket möjliggör att utskriften bryts för 
t ex sidbyte. 

forts, nästa sida 
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Maskinkodning 

Nu lite om hur programmet fungerar 
för dem som vill dyka lite djupare i da¬ 
torns inre. Helst bör du ha tillgång till 
böckerna ”V1C Revealed” av Nick 
Hampshire och ”Programmers Refe- 
rence Guide” från Commondore eller 
”Programming Manual” från MOS- 
TEC. Dessutom erfordras någon slags 
maskinkodsmonitor. 

Vad gör datorn när det står READY 
på skärmen? Jo, den arbetar kontinu¬ 
erligt och kör en liten slinga från ROM 
adress $C480—$C490. Här undersöks 
hela tiden om någon rad inslagits från 
tangentbordet. Du kan bryta dig in i 
slingan genom att ändra RAM-adres- 
sen i $0302 och $0303 för att hoppa till 
en egen rutin och därefter återvända 
med JMP$C483. 

Om du slagit in en rad t ex OPEN 
4,4:DMC4:L1ST och sen RETURN el¬ 
ler kör ett program, sker hopp till en 
annan slinga, där varje kommando ut¬ 
förs. Denna slinga ligger från 
$C7AE—$C7EC. Du kan bryta dig in 


i slingan genom att ändra adressen i 
$0308 och $0309 till eget program och 
därefter återvända med JMP $C7E4 
eller med JMP $C7AE beroende på 
om kommandot ej tages eller tages om 
hand. 

Så har här skett för att infoga den 
nya LIST-rutinen utan radnummer. 
För varje nytt kommando testas, om 
detta är ett @ eller ej. Om så är fallet 
utförs den speciella LIST-rutinen som 
nu i sig är en slinga. Observera att änd¬ 
ring av adressen i $0308 och $0309 
måste ske i maskinkodsprogram efter¬ 
som adressen styr utförandet av 
POKE-kommandot. 

Den vanliga LIST-rutinens slinga 
kan du bryta dig in i genom att ändra 
adressen i $0306 och $0307. Återvänd 
med JMP $C71A. 

1 den speciella @ -rutinen som ligger 
i RAM kan vi naturligtvis bryta oss in 
varsomhelst i slingan. Detta möjliggör 
den snyggare avbrottsfunktionen vid 
listning av text. 


När ett vanligt BASiC-kommando 
skall utföras sker detta ej genom JSR 
(hopp till subrutin) utan genom att ad¬ 
ressen till subrutinen lagras på stacken 
(vid $C7F9—$C800). Därefter sker 
hopp till Charget-rutinen (JMP 
$0073), som plockar fram nästa infor¬ 
mationsbyte i den rad som skrivits in 
från tangentbordet. Om det ej är en 
siffra sätts carry-biten. Charget- 
rutinen avslutas med RTS (retur från 
subrutin) vilket är något underligt ef¬ 
tersom något JSR ej skett. Vad mik¬ 
roprocessorn 6502 nu gör är emellertid 
att plocka fram en ny adress från stac¬ 
ken. Detta innebär att hopp sker till 
den rutin som utför BASIC-komman- 
dot, varmed önskat resultat erhålls. 
Detta knep används eftersom något 
programmerbart JSR(K) där K är en 
variabel ej finns för 6502. Hopp måste 
ju ske till olika rutiner beroende på vil¬ 
ket kommando som erhållits. 


Lars Moeschlin 
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Frågor 

& 

svar 

V1C-64: 

FRÅGA: Var finns minnesadresserna 
på 64:an för att centrera skärmen? På 
VIC-20 är adresserna på VIC- 
processorn 36864 och 36865. Är det 
något jag förbisett någonstans? Jag 
skulle uppskatta, om ni kunde svara på 
min fråga både för min skull och för 
andra läsares, som undrat över samma 

i 

sak. 

SVAR: Precis som du nämnde så har 
VIC-20s chip för styrning av videosig¬ 
nalen förmågan att justera både den 
horisontella och vertikala inställningen 
av skärmen. Olyckligtvis finns inte 
denna funktion på VIC II-chipet, som 
styr videosignalen i VIC-64:an. Det 
finns adresser som kan POKEas för att 
justera utskrifter på skärmen 
(53265,53270), men dessa adresser är 
inte svar på din fråga. Tyvärr blir det 
så att även om PRlNT-tecknen flyttas, 
så lämnas skärm ramen orörd. 

FRÅGA: Kan man använda en stan¬ 
dardbandspelare tillsammans med 
Vic-20 eller 64, eller måste jag köpa 
C2N kassettspelare från Commodore? 
SVAR: Det finns några få adapter- och 
interface-utrustningar som tillverkas 
av oberoende företag och som tillåter 
att du använder standardbandspelare 
med din VIC-20 eller 64:a. Vi har dock 
inte fått några informationer om de 
finns tillgängliga i Sverige och inte hel¬ 
ler hört att de är på väg in utifrån. Den 
enklaste vägen är ju att använda en 
kassettbandspelare, som är avsedd just 
precis för din dator! 

FRÅGA: Kan man använda Program¬ 
mens Aid-pluggen från VIC-20 på en 
64: a? 

SVAR: Nej! För det första är plug-in- 
portarna olika. För det andra är prog¬ 
rammen olika då de flesta minnesad- 
resser är olika. Du kan bara använda 
pluggar för VIC-20 på denna maskin 
och sådana som tillverkats för 64:an 
på denna. 



FRÅGA: Jag har en VIC-20 med 
diskstation 1540. Nu funderar jag på 
att skaffa mig en VIC-64 och då har 
jag hört, att man kan ”gradera upp” 
1540 till att bli en 1541 :a. Är det sant? 
Man har sagt mig att man bara behö¬ 
ver byta ett ROM, vem kan i så fall gö¬ 
ra detta? Måste jag själv gå till en 
Handic-återförsäljare eller kan man 
göra bytet själv? 

SVAR: Jo, det är sant att man kan gra¬ 
dera upp 1540 till 1541 genom att byta 
ut ett ROM. Hör efter med din handla¬ 
re om han har ett sådant utbyteschip 
hemma. Eftersom i princip alla in¬ 
grepp i maskinvaran till VIC (eller nå¬ 
gon dator) bör göras av kompetenta 
tekniker, rekommenderar vi att du lå¬ 
ter handlarens tekniker göra bytet. Om 
du gör bytet själv kan du skada disk¬ 
enheten och dessutom försvinner din 
garanti när du själv gör ingrepp i ma¬ 
skinvaran. 

FRÅGA: När jag blev medlem i VIC- 
klubben skulle jag få tidningarna som 
hade kommit ut tidigare. Jag satte in 
pengarna på postgirot och efter ett tag 
kom tidningar från er. Men bara num¬ 
mer 4 och 3 — var blev dom andra av? 
Vill ni vara snälla och skicka dom till 
mig? 

SVAR: Ty.värr, som vi meddelat i ett 
tidigare nummer av VIC-rapport, har 
VIC-klubb-medlemskapet fått övergå i 
att gälla prenumeration på tidningen 
enbart. Det är tanken att förmåner så 
småningom skall erbjudas prenume¬ 
ranterna, men detaljerna är ännu inte 
klarlagda. Vi tror att du fått nummer 
5/6 vid det här laget och att du kom¬ 
mer att få fler nummer av 1984 års ut¬ 
givning som kompensation för att de 
tidigare numren tagit slut. Av prenu- 
merationskupongen ser du att några 
finns kvar för efterbeställning. 

FRÅGA: Jag vill veta adressen till den 
Mats Nilsson, som är medlem i WVK 
och som har skrivit en insändare i nr 1, 
årgång 2 (1983). Jag vill veta var man 
får tag i hans bok med ”100 POKEs”. 
Jag heter Svante Larsson, Ölandsgatan 
22, 621 49 VISBY och har telefon 
0498-172 91. 

SVAR: Vi ber härmed Mats Nilsson att 
ta kotakt med DIG direkt, Svante! Ty¬ 
värr har vi inte hans adress eller tele¬ 
fonnummer på redaktionen. 


Klubb- 

nytt 



Denna gång har vi bara lite 
nyheter och i huvudsak 
efterlysningar från nya klubbar 

NY VIC-klubb i Göteborg. Vi kommer 
att syssla med att byta spel m m, ge ut 
ett medlemsblad då och då. Är du in¬ 
tresserad? Skriv då till: 

Göteborgs VIC-klubb 
Mikael Brisk 
Tångenvägen 7 i 
417 43 Göteborg 

Jan Engstrand i Sturefors vill veta om 
någon är intresserad av att komma 
med i en mjukvaruklubb? Skriv i så 
fall till honom direkt och uppge vilken 
dator du har: 

Jan Engstrand 
Blåeldsvägen 72 
590 54 Sturefors 

Finns det något intresse för en VIC- 
klubb inom Hovslätt-Norrahammar- 
Taberg-Månsarp-området? (Norra¬ 
hammar ligger utanför Jönköping, om 

Forts. sid. 44 


FRÅGA: Hur får jag tag i en postor¬ 
derkatalog, som beskrevs i nr 5/6-83? 
Hur kan jag anmäla mig till ett QVIC- 
konto? 

SVAR: Du kan få en postorderkatalog 
hos din närmaste VIC-handlare, som 
också kan ge dig alla upplysningar om 
QVIC-kontot. 
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The Mutant Spiders 


vika att göra samma misstag en gång 
till. 


I ”The Mutant Spiders” måste du försöka rädda världen från en 
invasion av muterade jättespindlar. . . . 


1 ”The Mutant Spiders” måste du för¬ 
söka rädda världen från en invasion av 
muterade jättespindlar. Många hinder 
väntar dig, men ge inte upp. Försök till 
att börja med ta dig till det område där 
jättespindelhonan tros vara. 

Vad är ett adventurespel? Ett adven- 
turespel utspelar sig i en viss miljö, och 
man får ett uppdrag som man skall 
slutföra. Lite av det engelska språket 
och några problem är inprogrammera¬ 
de. Miljön skall du utforska och kart¬ 
lägga, vilket vi kommer till senare. Det 
engelska språket du använder i pro¬ 
grammet består av enkla och okompli¬ 
cerade kommandon, som du skriver 
som svar på frågan: what shall 1 do 
now? 

Kommandona består oftast, med 
mycket få undantag, av ett verb och ett 
substantiv. Om du vill ta upp t ex en 
lampa skriver du ”get iamp”. Du kan 
också skriva” get the red lamp”. Detta 
beror på att spelet endast tar ut det för¬ 
sta och det sista ordet i meningen som 
du har skrivit. Programmet använder 
också bara de tre första bokstäverna i 


ingen visste det). Skriv i så fall eller 

ring, till 

Erik Aderstedt 

Idevägen 5 

562 00 Norrahammar 
Tel 036-616 45 

Det finns en VIC-klubb i Laholm, som 
kallas ”VIC User Group”. 

Den har adressen: 

VIC User Group 
Björkered 
312 00 Laholm 

Medlemsavgiften är 100 kr/år och för 
det får man ”Letter from VIC User 
Group”, 4—6 ggr/år. Tidningen inne¬ 
håller artiklar om allt som rör VIC- da¬ 
torerna. 



varje ord, så ”examine tunnel” (un¬ 
dersök tunneln) kan förkortas till ”exa 
tun”. 

En spelomgång kan gå till så här: 
datorn frågar, ”what shall I do now?” 
Du svarar, ”look” (titta, se). Datorn 
skriver t ex. ’Tm in a forest” (jag är i 
en skog), ”stone statue” (sten staty), 
”south west east” (riktningarna du 
kan gå). Om du vill ta statyn har du två 
val, antingen skriver du ”get stone” el¬ 
ler så skriver du ”get statue”. Låt oss 
skriva ”get stone”. Datorn svarar 
”it’s beyond my power to do that”. 
Det betyder att spelet inte klarar det. 
Då försöker vi med ”get statue”. Da¬ 
torn svarar ”ok”, vilket betyder att du 
har tagit upp statyn. 

Att rita en karta över det område 
du rör dig i kan vara nödvändigt när 
du skall förflytta dig från den ena än¬ 
den av området till den andra. Det är 
också bra att ha en karta om du ”dör” 
dvs förlorar spelomgången och är 
tvungen att börja om. Då kan du und- 


Så här ritar man en enkel 
karta: 

Man brukar dela upp området i olika 
rum. När du börjat skriver du ”look” 
och du får reda på var du är och vad 
du ser. Rita då en ruta på ett papper 
och skriv i rutan var du är och vad du 
ser. Ex: 

sun rrisAoow 

ntit> 


Väderstrecken visar åt vilka håll du 
direkt ser att du kan gå. Det kan alltså 
finnas fler utgångar, t ex ”climb tree” 
(klättra upp i trädet), ”enter tunnel” 
(gå in i tunneln) osv . . . 

Du går ”east” (öster) och skriver 
”look”. Så ritar du en ny ruta bredvid 
(öster, höger om) den första rutan och 
skriver i den rutan vad du nu ser. Ex: 
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På så sätt har du bra ordning på ditt 
område. Om du tycker att det blir för 
kladdigt med att skriva i rutorna kan 
du numrera rutorna och skriva vad 
som finns i dom på ett annat papper. 
Men väderstrecken är bra att ha på 
kartan. Dom riktningar som finns är: 
”north” (norr), ”south” (söder), 
”east” (öster), ”west” (väster), ”up” 
(upp), ”down” (ned), ”in” (in, OBS! 
Finns ej i ”The Mutant Spiders”), 
”out” (ut). Till varje riktning finns en 
förkortning, t ex ”north = n”, 
”east = e”. 

Dom vanligaste kommandona är: 
”light” (tänd), ”examine” (under¬ 
sök), ”look” (se, som har förkortning¬ 
en 1), ”drop” (släpp), ”get/take” 
(ta). Det finns många fler kommandon 
som du blir tvungen att hitta på. 

”The Mutant Spiders” är bra och 
spännande äventyrsspel där man måste 
använda logik, intelligens och man 
måste ha lite engelska kunskaper. 
LYCKA TILL! 

TEAMWORK 
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/ Smålandsposten fann vi en intressant artikel om en 13-årig programmerare och 
en VIC-20 som vi gärna vill delge även VIC-rapports läsekrets. Artikeln var skri¬ 
ven av tidningens lokalkorrespondent i Alvesta, Sven Karlsson med fotografier 
som tagits av hans son, Magnus Karlsson. Hela artikeln återges med författarens 
tillstånd här: 



13 -årig ”hacker” fixade sågverkets dataprogram 


Det stora dataprogrammet som skall 
underlätta sågverkets beräkningar av 
virkesutfall och ekonomiskt utbyte 
hann inte komponeras av det stora da¬ 
torföretaget. Då fixade 13-årige Johan 
Garcia från Alvesta det hela, och inom 
kort kommer hans dataprogram alt 
spara mycket tid och därmed också 
pengar för sågverket. 


Johans dataprogram omsätter de in¬ 
matade uppgifterna om stockarnas di¬ 
mensioner och längder till uppgifter 
om vad sågverket kan få ut i form av 
sågat virke och därmed också uppgift 
om det ekonomiska värdet. Htt relativt 
avancerat program således, men det 
tycker inte Johan som trots sin låga ål¬ 
der blivit något av en driven ”hacker” 
inom dataområdet. 

Hans fritidsintresse har sedan ett par 


år tillbaka varit datorer och deras möj¬ 
ligheter. vad den killen skall syssla med 
i framtiden är ganska givet, det blir väl 
något inom data, säger han själv. 

• Fler program 

Johan har på sin egen hemdator lyc¬ 
kats komponera en mängd olika pro¬ 
gram, som är användbara både för pri¬ 
vatpersoner och för företag av olika 
slag. Det rör sig bl a om register, enkla 
sådana, säger han själv, men också da¬ 
taspel. Av de senare har han också ex¬ 
porterat en del till Norge! 

• Dataspråket 

För den oinvigde och med begränsade 
kunskaper om datorer verkar det här 
ganska fantastiskt, men enligt Johan 
själv är det inga märkvärdigheter, bara 
man har lärt sig dataspråket! 


• Träffade datachef 

Johans första kontakt med datorer 
fick han genom en datachef för ett par 
år sedan. Då vaknade intresset, och på 
biblioteket lånade han hem all littera¬ 
tur i ämnet. 

— Det fanns bara ett 10-tal böcker 
och dessvärre var bara två av dem nå¬ 
got att ha för att grunda datakunska¬ 
per på, säger han. De båda böckerna 
var boktitlarna ”Börja med Basic” 
samt ”Basic Basic”. Vid sidan om de 
här studierna blev det också täta besök 
hos en datorbutik i Växjö. Där gjorde 
Johan egna spel som användes i olika 
sammanhang. Men när en av de an¬ 
ställda tryckte fel och suddade ut Jo¬ 
hans program blev han besviken och 
gick till en annan butik där han blev en 
ständigt återkommande gäst. 

Forts. sid. 46 
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Hur man får 
höga spelpoäng 


Under den här rubriken kom¬ 
mer vi fortlöpande att presente¬ 
ra speltips från läsarna över hur 
man får höga poängtal när man 
spelar några av de många spel, 
som finns till VIC-20 och 64:an. 

Mats Larsson i Stenungsund tipsar 
om AVENGER på VIC-20: 

. . . jag har kommit på en sak med 
AVENGER (Space Invaders). Om 
man först skjuter 22 skott och sedan 
väntar på ett MYSTERY och skjuter 
detta så får man 300 poäng (max- 
poäng). Därefter skjuter man 14 skott 
till, väntar på MYSTERY och skjuter 
det — då har man ytterligare 300 
poäng. Fortsätt med 14 skott mellan 
MYSTERY-skotten ända tills du får en 
ny karta. Då börjar man om från 22 
skott. Jag hoppas detta stämmer för 
alla AVANGER-spel. OBS! Har du 
färre än 9 ALIENS kvar, kommer inga 
fler MYSTERYs. 

Glenn Frankell i Malmö hade kom¬ 
mit på en rolig grej med SNACK¬ 
MAN: 

Spelet går ut på att man skall äta 



¥:] uövultv- 0,11-hÅ- 



upp ”bollar” som ligger i banorna och 
om man äter upp en litet större boll, då 
kan man också äta upp ”spöken”. För 
varje spöke man äter upp får man dub¬ 
bel poäng. 

När man äter upp ett spöke så åker 
spöket in i sitt ”bo”. Detta är försett 
med en ”dörr” där man inte kan gå in 
med sin egen spelare. Men, om man 
först äter upp ett spöke och sen snabbt 
springer och ställer sig vid denna dörr 
och äter upp spöket precis när det går 
ut, då äter man samtidigt upp dörren. 
Därefter kan man komma in i ”boet” 
och äta upp spöket omigen och omigen 
och omigen så länge man får äta spö¬ 
ken och tonen markerar att det är slut 
på spelet. På detta sätt får man dubbla 
poäng hela tiden. 

Lennart Svanberg i Frillesås har tyd¬ 
ligen kommit på ett bra sätt att få höga 
poäng på JELLY MONSTER, och 
skriver så här: 

När jag läste i VIC-News ett förslag 
på en bana till PAC-MAN kunde jag 
inte ge mig förrän jag kom på en täc¬ 
kande bana, som gjorde att jag åt upp i 
stort sett alla små prickar innan jag tog 
det första vitaminpillret. Mitt resultat 
blev 433920 poäng, som jag bifogar in¬ 
tyg på till spelrekordspalten. 

Tyvärr var Lennarts illustration ri¬ 
tad med blyerts på rutpapper och blev 
inte bättre än så här i tryck. Vi måste 
därför rikta en uppmaning till alla 
skribenter: VAR SNÄLLA OCH AN¬ 
VÄND SVART SMAL FILTPENNA 
ELLER TUSCH NÄR NI RITAR 
BILDER TILL TIDNINGEN. 

Vi hinner tyvärr inte rita om alla bil¬ 
der på redaktionen! 


• Ingen i skolan 

Johan tyckte det var jobbigt att behö¬ 
va åka till Växjö varje gång han ville 
jobba med datorer och därför försökte 
han övertala lärarna på sin skola. 
Grönkullaskolan i Alvesta, att inköpa 
en dator för elevernas räkning. Men det 
lyckades inte, och då fanns bara en ut¬ 
väg. 

Johan började spara till en egen da¬ 
tor, och för drygt ett år sedan kunde 
han packa upp sitt nyförvärv. Försälj¬ 
ningen av spel och program som han 
komponerat gav pengar till avbetal¬ 
ningarna. 


• Kontakter viktiga 

— Det är viktigt att man har de rätta 
kontakterna, berättar Johan, och det 
har han tydligen. När han kom in till 
”sin” databutik berättade man om 
sågverket som behövde ett datapro¬ 
gram men att man inte hann göra det¬ 
ta. Det var en passande uppgift för Jo¬ 
han som därmed fick uppdraget på le- 
go. Ungefär 100 timmar höll han på 
med programmet, berättar han. 

• Spännande 

Arbetet med att göra dataprogram är 


mycket spännande, berättar Johan 
vidare. Varje program är något av en 
utmaning och speciellt roligt är det när 
man sitter mitt uppe i ett program och 
har svåra detaljer att lösa. Kan man 
bara ”tala om” för datorn vad den 
skall göra med de inmatade uppgifter¬ 
na klarar den av nästan vad som helst, 
säger Johan. I dagarna har han sålt sin 
lilla hemdator och satsat på en större 
dataanläggning. Framtiden ser ut att 
vara utstakad för detta unga ”datage¬ 
ni” från Alvesta. 

SVEN KARLSSON 
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GRATISANNONSER 


Dubbelfloppy * VIC-64 

Floppy 3040 samt interface ”Inter- 
pod”(se ex annons i Compute! nr 9-83 
sid 129). Interpod fungerar till all 
CMB — floppys, printers m m pris: 
Floppy ca 4000:— samt för Interpod 
ca 1000:—. Ring Åke A Setreus 08- 
39 26 86 kvällstid. 

Spelprogram T VIC-20 

7 st fina spelprogram på kassett till 
oexp. VIC-20 säljes för endast 75:—. 
Sätt in pengarna på pg 431 97 86 -2 så 
får du programmen om några dagar! P 
Månsson. 

*** VIC-20*** 

Spelprogram till VIC-20 säljes eller by¬ 
tes! Vi har ca 30 olika spel i maskin¬ 
kod. Ring och hör av dig, fråga efter 
Mattias eller Petter! Tel 08-755 24 44 
efter kl 16.00. 

C-64 program 

Telegrafiträning, beräkna BP-filter m. 
OP-amp, resonanskr., induktans, re- 
aktans, impedans, Ohms lag m m. 
Kretsschema ritas upp på skärmen. 
Texas TI 99/4 m Texas färgmoni¬ 
tor+talsynth., joysticks + 3 pluggin 
kassetter + litt. Slumpas för 2 990:—. 
Ring 0612-232 71. 

VIC-64 spel säljes 

4 st spel på en kassett (Motormania, 
Supergridder, Laserzone, Fotboll) 
75:—. Jumpman på diskett 175:—. 
Blue Max på disk 150:—. Vid köp 2 st 
(Jumpman + Blue Max) 285:—. Sätt in 
på postgiro 473 63 71-8, Tyas Laras 
TS. 

VIC-20/64 resetknapp 

Ingen lödning eller annat ingrepp. 
Fungerar ej tillsammans med printer 
eller flexskiva. Pris 25:— på pg 
478 95 08-1 eller skicka kontant till Pe¬ 
ter Månsson, Fårhagsvägen 18, 583 21 
Linköping. 

Brevvänner sökes 

Äger du en VIC-20 och vill ha brevvän¬ 
ner att byta erfarenheter och program 
med??? Skriv då till Leif Lindström, 
Dahlandergatan 39, 703 48 Örebro. 

VIC-20 spel säljes 

3 st för 50 kr. Luffarschack ( + 3K), 
Lotto med rättning, Högre/lägre, Log¬ 
ger ( + 3K), Fyra i Rad, Stryktips med 
rättning, Catacombs ( + 3K), Flying 
Saucer, Attack, Mini Pacman. Vilka 
vill du ha? Sänd på pg 459 26 40-9, 
Tore Gullstrand. 


*** Tipsextra-special *** 

Tre högintressanta program som gör 
tipsextra ännu intressantare. V-65 ran- 
king, suveränt program som bygger på 
flera års erfarenhet och statistik, 
150:—. Marknadens bästa(?) stryk- 
tipsprogram 90:—. Lottoprogram 
40:—. Alla tillsammans 220:—. Ring 
018-11 28 75. 

Ultrabasic, 50 st extra ljud och grafik¬ 
kommando + Superskramble för en¬ 
dast 200:—. Nypris 420:—. Ring 040- 
96 99 90, Anders Karlsson. 

VIC-20 spel säljes 

Provkassett med 5 spel (Crazy cars, Ci¬ 
ty bombers, Boxning, Slalom, Vogon) 
samt prislista. Endast 45:— + pfavg. 
Ring eller skriv till Fredrik Hedlund, 
Mov. 19, 780 41 Gagnef. Tel 0241- 
103 43. 

VIC-20 maskinkodspel 
Spel i 100% MASKINKOD till VIC-20 
bytes/köpes/säljes för 15: — 
/st+10:— i fraktkostnader. T ex 
SKRAMBLE, AMOK, SNAKEPIT, 
ANTI MATTER SPLATTER m m. 
Tel 026-12 44 71, Henrik. 

64-program 

Jag har en del spel och nyttoprogram 
till VIC-64 som jag säljer BILLIGT! 
Beställ katalog + prislista. Magnus 
Gustavsson, Hörda Kroken, 360 44 
Ingelstad. 

Spel till VIC-20/VIC-64 

Till oexp VIC 20 på kassett: 14 st su¬ 
perspel! Ex: Gridrunner, Space 
Freaks, Pac-man, Shadow Fax, Cos- 
midas + 9 andra! Alla 14 spelen för en¬ 
dast 50:—!!! För VIC-64 på kassett: 
Fort Apocalypse — hur långt ner i den 
hemliga basen kommer du? OBS! Krä¬ 
ver joy-stick! Pris 40:—. Sätt in betal¬ 
ning på pg 479 04 99-0 så skickar jag 
omgående! Patrik. 

Dammskydd VIC-20/64 

Dammskydd av matt plast. God kvali¬ 
tet. Pris endast: VIC-20/64 — 30:—, 
bandspelare 1530 — 20:—. Paketpris 
båda: 40:—. L. Anrås 6511, 444 00 
Stenungsund. Tel 0303-776 15. 

VIC-20 

Säljes: Cartridge:Avenger, Poker, Ju- 
piter Lander, 90:—/st eller 225 för al¬ 
la. ZAP! POW! BOOM! Arcade ga- 
mes for VIC-20 75:—. Programme¬ 
ringshandboken 75:—, Bygg ut din 


VIC 50:—, BASIC på VIC-20 30:—. 
Niklas Björklund, Bråviksvägen 18, 
603 65 Norrköping, tel 011-11 82 95. 

VIC-20 SPEL 

5 st spelprogram (för oexp), bl a 
Scram-20, Golf samt 3 andra fina spel 
på kassett. Pris 50:— insättes på pg 
78 04-64-4 K Nilsson. 

SÄLJES FÖR VIC-20 

Jelly Monsters, plug-in, 150:—. Ma¬ 
sken, Break out. Lander och Space At¬ 
tack 50:—. Tel 08-756 23 28. 

100 GRATIS KVALT. SPEL 

till VIC-20 ger jag inte bort. Men dock 
3 st. Skicka ett kvalitets m-kods spel på 
band, namn & adress + en tia för por¬ 
to & omk. Då får du tillbaka 3 kvalt, 
spel på ditt band. Välj mellan Amok, 
U-137, ZAP Crazy Kong, Meteor Ma- 
ze — Tomas Olson, Box 12, 820 22 
Sandarne. 

VIC-20 SPEL! 

15 st superspel till VIC-20 bl a 
Skramble! Puckman, Gridrunner, 
Snake Pit m fl!! Endast 125:— för al¬ 
la!! Tel 0750-212 50. 

VIC-20 SPEL 

3d Time Trek, 16 K, 95:—. Krazy 
Kong, 16 K, 95:—. Skyhawk 3K eller 
8K, 95:—. Flipper, oexp., 70:—. Race 
Fun, oexp., 70:—. Ring Mats 0150- 
513 15 efter 17.30. 

BILLIG VIC-20 SÄLJES 

VIC-20 med svenska tecken, super ex- 
pander, maskinkodsmonitor, använ- 
darmanual, programmeringshandbok 
och VIC Revealed. Massor av spel, 
bl a Scramble, Exterminator, Snak- 
man och Gridrunner på kassett. Jelly 
Monsters och Rat Race på plug in. 
Joystick medföljer. Nypris ca 5 000:— 
nu endast 2 995:—. Skriv snarast till 
Pär Bergström, Alabamagatan 2, 
593 00 Västervik eller ring 0490-112 67 
efter kl 16. 

** VINN PÄ V-65 ** 

Mycket effektivt BASIC-program för 
rankning av travhästar. Hittar förvå¬ 
nansvärt ofta högoddsarna. Bygger på 
flera års statistik och erfarenhet. 
150:—. Har även andra bra program 
för stryktips, glosförhör etc. Tel 018- 
11 28 75, Torbjörn Sjölin. 
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TILLFÄLLE VIC-20 SPEL 

Jelly Monsters + andra toppspel på 
plug-in kassett säljes eller ev bytes mot 
andra spel. Tel 0980-818 75. 



SÄLJES 

SEX st kassettband C-20 för datapro¬ 
gram säljes för endast 45:— insatt på 
pg 85 99 92-0 Lars Eric Larsson, Box 
14, 665 00 KIL. Önskas mot postför¬ 
skott tillkommer 8:—. 

PROVER TILL VIC:ARNA 

Jag har köpt hem prover från leveran¬ 
tören i England och USA. Spel, 
ordbeh. monitor, minne, expansions- 
enheter m m. Säljer dem billigt. Jag 
skickar förteckning om du skickar 2:— 
i frimärken. B Nilsson, Box 33015, 
200 50 Malmö. 

KÖPES 

Beg. VIC-64. Ring 0381/112 12. 
VIC-20 SÄLJES 

Dator + bandspelare. ÅÄÖ. Superex- 
pander. Plug-inspel: Jupiter Lander. 
V1C kassett 1 & 2. 4 böcker. En hel del 
program. Ring från efter 1700 och hel¬ 
ger till 0456-313 14. Pris 3 000:—. 

VIC-64 SPEL BYTES 

Scramble och Supergridder båda köpta 
maskinkodsprogram bytes mot liknan¬ 
de spel. Mikael Johansson, Cykla- 
menstigen 7, 432 00 Varberg. 

** VIC-64 VIC-20 ** 

Här säljes adventures och arcadespel 
av högsta klass. Ex.: Time Travel, The 
Car, Space Trouble och många fler. 
Kontakta genast Johan Robertsson, 
Mme Jeannes Väg 13, 671 00 Arvika. 
Tel 0570-141 67. 

VIC-20 TILLBEHÖR 

Basic, Grafik och Ljud på VIC-20, 
45:—/st. VIC-slot plug-in 100:—. Ke¬ 
miprogram 8K 75:—. Glosprogram 8K 
75:—. Ring gärna för mer info på tel: 
08-768 44 21 eller skriv till Andreas Ja- 
kobik, Sätraängsväg 136, 182 37 Dan- 
deryd. 

SÄLJES VIC-20 

VIC-20 med bandspelare, Superexp., 
böcker och kassetter med program. 
Pris 2 500:—. Ring 0920-547 46, Lars- 
Göran. 

VIC-64 * PROGRAM * BYTES 

Jag önskar byta program. Har ca 50 
program. Sänd en lista till Pär-Uno 
Nilsson, P1 5281,441 90 Alingsås. 


VIC-64 

Avancerat ljusstyrningssystem till 
VIC-64. Skicka svarsporto så får du 
veta mer. Lars Rehnqvist, Takarega- 
tan 1,802 38 Gävle. 

VIC-20 

Bonzo. Amok. Millipede. Road- 
toad +läroboken ”Från spel till BA¬ 
SIC” + kassett med 7 st spel. Allt detta 
säljes för endast 300:—. Ring 0591- 
136 76, Ove. 

VIC-20 TILLBEHÖR 

VIC-1110 8 K expansionsminne 

350:—. VIC-1922 Cosmic Cruncher 
spelmodul 250:—. Tel 026-25 67 69, 
Göran Sandström. 

*** CBM YATZY *** 

Trevligt familjespel i harmoniska fär¬ 
ger och sprites. End. disk. 90:—. Ga¬ 
ranti lämnas. Bet. till pg 442 72 49-0, 
G Högberg, Flöjtg. 1, Karlstad. Tel 
054-13 56 56.- 

VIC-20 

9 st maskinkodsspel, bl a Amok, 
Skramble och Gridrunner säljes för 50 
kr/st. En bok Zap Paw Boom säljes 
för 50:—. Ring 08-756 23 28. 

VIC-20 MASKINKODSPEL 

Bytes/säljes för 10:—/st+10 kr i 
fraktkostnader. Jag har t ex TraXX, 
Matrix, Bonzo, Grand Master m fl. 
Blev du sugen? Skriv då till Henrik Ca- 
nadas, N Skepparg 27 B, 803 53 Gävle. 
Tel 026-12 44 71. 

SPEL TILL VIC-20 (OEXP) 

13 st spelprogram på kassett för endast 
60:— inkl frakt. Bl a Alien, Moonlan- 
der, Rally, Mushroom, Invasion . . . 
Sänd 60:— till Mikael Boden, Mando- 
lingränd 16, 332 00 Gislaved. Tel 0371- 
123 25. Jag levererar inom 2 dagar. 

FÖR RADIOAMATÖRER! 

RTTY-program till VIC-64. Program¬ 
met arbetar med SPLIT-SCREEN, 
skriv ditt svar medan du tar emot. 
QTH-lokatorprogram, nya och gamla 
systemet. Ring Tomas, tel. 0515- 
165 30 efter 18 00. 

VIC-20 PRYLAR SÄLJES 

Expansionslådan VIC 1020 nypris 
1875 endast för 895:— kr. Program- 
mers aid 2090 kr. 5 olika böcker endast 
40:—/st. Programmeringshandboken 
75 kr. Plug-inspel 130:—/st. Original¬ 
spel på band 50:—/st. (Areadia, Vic- 
men och Centipede 8K). Ring 031 - 
54 38 41. 


VIC-20 SPEL 

Grand Master shack bytes mot Shamus 
eller Choplifter. Jag har även andra 
spel som jag byter. Ring 08-59 82 65 
Johan. 

VIC-20 SPEL BYTES 

VIC-20 spel bytes. Stort sortiment. 
Skicka lista över dina spel till: Karl 
Pettersson, Avstyckningsvägen 24, 
175 43 Järfälla. Tel. 0758-112 75. 

SÄLJES VIC-64 

VIC-64 med 14” DUX färg-TV säljes 
för 5 000:— (Nypris 6 595:—). An¬ 
vänd 3 mån. VIC-64:an utan TV 
3 300:—. 10 program på kassett med¬ 
följer. Tel 026-791 20, Jan. 

* VIC-64 BANDIT-SPEL* 

Säljes ett nytt program på kas¬ 
sett + frakt. Pris 80:—. Skriv till S. 
Muto, Sernandersvägen 15—311, 
752 62 Uppsala. 

VIC-64 ÄGARE!! 

Maskinkods- Adventure- och Nytto- 
program bytes ev. säljes. Ring till Pat¬ 
rik, 031-29 01 32. 

VIC-20 SPEL! 

Spel säljes, ex: Meteoriter, Lotto, Da¬ 
torernas krig, Space Invaders, Synthe- 
ziser, Ubåtsjakt. Skicka efter lista från 
Svante Larsson, Ölandsgatan 22, 
621 49 Visby, eller ring 0498-172 91. 

CARTRIDGAR HYRES 

Cartridgar till VIC-20 önskas hyra. Du 
bör bo i Stockholm, helst södra. Även 
vissa spel bytes. Ring till 08-46 89 41 
efter kl 16, fråga efter Jacob. 

KÖPES 

VIC bandspelare, max 200:— — 
300:—. Andreas Elfner, Erik Dahl- 
bergsgatan 8, 211 48 Malmö. 

VIC-20 TILLBEHÖR 

VIC-20+ 3, 8, 16K minne + RESET + 5 
st handböcker + 40 st maskinkods¬ 
spel + nyttoprogram och div. BASIC- 
program + många goda råd och ett 
glatt humör. Nypris 4 600:— NU EN¬ 
DAST 3 200:—. Ring Jocke Ceder- 
blad, 0758-171 96. 

SUPER BASIC + MLX 

Från senaste Compute: Intresserad? 
ring 018-46 00 58 för närmare infor¬ 
mation. Säkrast efter kl 19.00. Skräd¬ 
darsyr också mindre program inom fy¬ 
sik och matte. 

ÅÄÖ 

ÅÄÖ-program till VIC-20 säljes för 
endast 25:—. Ring Per Fohlin, 06- 
111 42. 
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Vic 64 i svensk version har Å-Ä-Ö-tecken inbyggda 
redan vid köpet, dessutom ingår användarmanual 
på svenska i priset. 



Av Vk 64 i svensk version fordras godkända anslut¬ 
ningsenheter. Transformator godkänd av SEMKO 
och video-dator-omkoppare (Televerkets krav) 
medföljer också (se bild). 

Av datorer som säljs i Sverige krävs att de inte över¬ 
skrider de hårda svenska normerna för radiostor- 
strålning. Vic 64 är avstörd och godkänd enligt Tele¬ 
verkets normer! 


Cirkapris inkl. moms för centralenhet. 


i S K*»Ser**"'** 


Fr.i/i spel till Bifs, c 


tröjor för 
1 ägare 


Beställ med 

prenumerations 

kupongen 


Finns i alla storlekar 



























Handic Press 

Box 42054, 126 12 Stockholm 


MASSBREV 



Mer än ett vanligt kreditkort 

O • 

Nu finns ett nytt skräddarsytt kontokort, för Dig som 
vill hänga med i datorutvecklingen — QVIC-KONTO. 

Med QVIC-KONTO kan du, när du vill, köpa VIC- 
datorer och alla datortillbehör du behöver. 

QVIC-KONTO innebär: 

• Ingen handpenning 

• Fasta månadsbetalningar 

• Rabatt på VlC-rapport- 
prenumeration 

• Gratis information 
om nyheter 

• Specialerbjudanden 









